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1.1 


The [purpose of the System Integration Test Plan is to demonstrate 
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Chapter 1 


INTRODUCTION 


PURPOSE 


through system esting taat the system satisfies the requirements |map- 
ped in the Requirements Traceability Matrix (RTM) to the Detailed |Sys- 


tem Requirements Documen- (DSRD) and accurately reflects the design 


specified in the Detailed System Design Specifications (DSDS). 


1.2 


This| document pyesents the PRIM System Integration Test Plan/tasks 


whic 
tests 


nearly live environment as possible with a minimum of simulation, 
i fl 


The intent jof this test plan is to identify responsibilities; 


state 
ties, 


SCOPE 


will subject the progremmers' products to a thorough set of 
neither ddsigned nor executed by the programmers and run in @s 


the overall test environment, identify objectives, oe aan 
procedures, and tools to be used for each of the various System 


Integretion Test} phases of the test plan. The PRIM System is ee 
est 


designed in a EFhased approach; tnerefore, this System Integration ‘ 


Plan will be written to test Release 1 as well as the overall struc- 
ture of the PRIM! System. Thereafter, the System Integration Test Plan 


will be updated for each successive release. However, the testing 
philosophy established in Release 1 will continue to be utilized in 
each successive release. 


Due to resource limitations, ODP/QAD will not be providing QA 
Support or test plans in Release 1. Releases 2 through 5 are (TBR) 
regarding QAD patticipation. 


The test plan consists of 2 Chapters: 


Chapter 1 -|"Introduction" presents the urpose and scope of the 
P purp Pp 


PRIM $ystem ie: eles Test Flan and references applicable to the 
contents of the 


ystem Integretion Test Plan. 


Chapter 2 - |"Plan" presents the major testing methodologies and 


defines testing driteria to be applied against the functional, per- 


formance, security, hardware, human engineering and interface require- 


ments ‘ 
i 


: - - 000200060006-1 
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1.3. REFERENCES 
The PRIM Team is utilizing a number of documents, publications and 


other reference material in writing the PRIM System Integration Test 
Plan. They are listed in Table 1. 


TABLE 1 


Documents, Publications and Reference Material 


1. Data Requirements Document 


2. Data Specifications Document 


4. Detailed System Requirements Document 

5. Interface Control Document 

6. ODP Applications Documentation Standards 
7. Requirements Traceability Matrix 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 3. Detailed System Design Specifications 
| 
| 
| 
| 
| 
| 
| 
| 
| 8. System Development Plan 
| 


a a ha aa E 
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| 

| 

| 

| 

| | 

| Chapter 2 
| 

: PLAN 
| 

| F 


2.1 ‘UNCTIONS: 


PRIM jis a centralized data base for use by the Personnel Officer, Ca- 

reer Menagement. Officer, Office Director or Training Officer of a com- 
ponent in direct support of the component's day-to-day personnel man- 

agement. activities, The overall objective of the test plan is to . 
ensure that the system meets all of the requirements identified in| the 
Detailed System Requirements Document and Detailed System Design Spec- 
ificdtions as mapped in the Requirements Traceability Matrix and list- 
ed below. . 
2) Centralizing Official Data for Component Access (Release 1, 8 & 
| 5) | 


f 


b) Tata Trarsifers Between Components (Release 1) 


c) Component i Manipulation (Releases 2 & 4) 


d) Cueries and Reports (Release 1) 


| 
e)}| Controlled) Component Data Access (Release 1) 


f)}| Other Requirements: Performance, Security, Hardware, Human En- 
| gineering,| Interface, Legal 


2.2 eenueLoe 


The System Integration Test Plan is being written for Release 1 of 
PRIM;| however, the testing philosophies established in Release 1 will 

be utilized in spccessive releases of PRIM. The PRIM System Integra- 

tion Test Plan will ensure that program/system specifications were) in- 
terpreted correctly; coding standards and conventions were followed; 
subject procedures/ functions have been sufficiently tested by the i 
grammers leesive: previously prepared integration test packets 


Shi s Seeeemaecue Laws 


{ 


The term compohent in the context of this document is defined as|a 
separate entity in thé Agency's organizational structure be it a/di- 
rectorate level, an office, a staff, a division, a service or a ¢en- 
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covering all appropriate areas were successfully tested, user produc- 
tion documentation, where required for a procedure/function is com- 
plete and accurate; program/system documentation is complete and accu- 
rate for procedures/functions; and that the procedures/functions will 
perform as specified by the user prior to "official pass" to the PRIM 
Library for acceptance testing by the user. 


2.2.1 


TEST TEAM 


The System Integration Test Team will consist of the two ODP and two 
OP analysts. Skills required will be systems analysis, system design, 
data base design, and project management. A detailed state-of-the-art 
knowledge of computer systems architecture and software engineering 
are mandatory. Skills will be required in interpreting the previously 
prepared integration test packets and in certifying that the manuals 
are complete and accurate. The analysts will be required to service 
"Requests for Change (RFC)" and to estimate impact on schedule, etc. 
All system analytical and design work is to be completed prior to Sys- 
tem Integration testing. The PRIM Project Leader will keep management 
apprised on the status of System Integration testing. 


a) 


b) 


c) 


d) 


e) 


f) 


The analysts are responsible for: 


Re-examining the internal workings of the program structure - - 
testing of procedures, testing system functions, the HRS2 Inter- 
face coming in, security testing and data transfer between com- 
ponents. In-depth testing of system security is considered 
critical. System test cases are designed by analyzing the ob- 
jectives and then formulated by analyzing the user documentation 
along with the program/system documentation. 


Ensuring that procedures are set up to control the System Inte- 
gration Test environment of the various test packets and the 
status of the test plan and tests at any given point in time. 


Re-certifying that there is sufficient disk space to contain 
source code, ODP load modules, OP load modules, ODP test data, 
if applicable, and OP test data (which after acceptance will be 
used to test future PRIM releases of software). 


Reviewing the established procedures and the required JCL for 
ODP to load their source code and test load modules back to the 
PERTEST test libraries, if applicable. 

JCL executes system without errors or unnecessary operator in- 
tervention and file labels are correct. JCL - defined file ca- 


pacities adequate, assuming moderate expansion. 


Execution sequence (system flow) accurate and workable. 
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g)) Re~testing! the established procedures and the required JCL 9 
| transfer thsted load modules to the PRIMTEST library, if appli- 
| cable. nay co the System Integration Test phase the PRIMTEST 


| library may contain only functions that have been “officially 
'passed", ile., certified by ODP; whereas the ODP PERTEST libzary 
|/may contain functional areas that have to be retested. 


wo @ 


h)}| Creating and generating test data for System Integration tests. 
The test dace will be established in such a manner that any test 
| or group of tests may be executed at any given time. 


NOTE:| Only testing generalities have been addressed above; more in- 
depth testing criteria is covered beginning with Section 2.2.2. If a 
more in-depth knowledge is required of any area, it will be necessary 
to refer to the supporting documentation, i.e., Program Manual, Pred- 
uct Manual, User|/Documentation, etc. 


2.2.2 RESOURCE | REQUIREMENTS 


a) Human 


DAC support dur-ng the 


1. Production Division/ODF - Data Base Management support and 
port dur:ng the System Integration testing phase. 


that the PRIM development system will utilize during System 
Integration Testing. 


(2. Operations Division/ODP ~ Operating the computer equipment 


e¢ring Division/ODP - System performance measurement 
onttpz ang: 
4, Information and Analysis Branch/OP - HRS2 RAMIS Report defi- 

nitioalsupport. 


5. Automated Data Resources Branch/OP - PRIM DBM and ADRB ana- 


lysts to prepare selected HRS transactions to complete a 


6. PRIM Users Group - Directorate Referents and Directorate |ADP 
Officers represent various components during devei- 
PRIM Users Greup will formalize changes to current 
requirements if the need arises. Request for Change (RFQ) 
controlled via Configuration Management Procedures. 


; | | 
‘7. Office|of Communications 


i) omestic Networks Division (DND) within OC handles |all 
RIM domestic communications. DND is responsible for 
he installation and/or procurement of communications 

| ines, modems, and cryptographic equipment in support 
i 
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of all PRIM peripheral equipment (terminals, remote 
printers, and remote job entry stations). DND inter- 
faces directly with Engineering Division (ED/ODP) in 
response to communications requirements or problems 
encountered in the PRIM Project. 


ii) Communications Security Division (CSD) within OC is 
responsible for TEMPEST testing/approval of all termi- 
nals and printers accessing PRIM. CSD interfaces di- 
rectly with ED/ODP in response to communications re- 
quirements or problems encountered in the PRIM 
Project. 


8. Office of the Inspector General (OIG) - The Information Sys- 
tems Audit Division of the Audit Staff may examine PRIM pro- 
cedures, records, reports, and test cases during the System 
Integration Test phase. 


9. Office of Security - The Information Systems Security Group 
(ISSG) will play a consulting role in the evaluation of the 
PRIM System security feature during System Integration Test 
and Acceptance Testing. 


b) Equipment 


1. Hardware 


The PRIM System will be accessed by the individual com- 
ponents through existing equipment. Peripherals in common 
use include video terminals (Delta Data 5000 or 7260 series) 
printers (TI Silent 700, Design 100). The components will 
be responsible for acquiring any additional equipment needed 
to access the PRIM System. Any equipment, specifically ter- 
minals or printers, must comply with standard Agency comput- 
er security regulations. 


All System Integration Testing, Acceptance Testing and 
Production activity performed outside of the Headquarters 
building must utilize only equipment approved for classified 
use. (Refer to Resource Requirements, paragraph a) Human, 
above for further details regarding point of contact.) 


2. Software in House 
GIMS Yes 
DBM System Software related 
to controlling read and/or 
write to PRIM and to data 


in PRIM Yes 
VM Yes 


c) Materials 


Applicable Documents and Forms 
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Form 2968 - File Description 
The index ox table of contents noting the acronym, 
relative sequence, test description, etc. of each 


data element in the project file. 


Form 3692 - Data Element Description 


Used to def:ine each data element within a given 
aplication of the system and its associated edit 
specifications. There is a copy of this form 

for each data element listed in the file description 
mentioned above. 


Form oe ~ Input: Requirements 


Defines only those data elements that may be input 
(required or optional) to accomplish a particular 
task or transaction specified in the system design. 
An error message number is produced if a been 

data element: is missing from the input. 


Form 36948 - Program Specification (PRIM has added this spec 
to the front of the POL in lieu of using the form.) 


Provides: additional specifications necessary for 
the program to! be written that are not previously 
recorded on the data element description form or 
the input requirements form. 


Form ae - Messege Descriptions 

Used to document all messages generated by the 
project transactions in message number sequence, 
their program source number, and corrective 


action to be taken upon display of the message. 


Form 3719 - Menu Formet 


A graphic layout of each menu to be used with a 
project transaction which is input on a CRT 
terminal. (All menus must be tested on both 
the Delta Data) 5000 and 7260T series.) 


Form 2278 - Program Narrative (PRIM has added this narrative to 
the front of the POL in lieu of using the Form.) 


Provides a general description of the program 
relating to any project function. 


Form 3725 - Verification, Procedures 


Document verification procedures that must be 
performed tc determine successful program 
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execution and the identification of any messages 
that pertain to the program. 


Form 3417 - Report Specifications 
Form 3417A - Report Data Elements 


Used to supplement Form 3417 (above) in the event 
of insufficient space. 


Form 3984 - Problem Report (Discrepancy Report) (To be used for 
Release 1 only) 


The IOC Testers will record problems on this form. 
The OP PRIM Analysts will analyze and if appropriate 
forward copy to ODP PRIM Analysts. This documents 
and controls the correcting and retesting of the 
problem(s). When the problem has been corrected, 
the ODP PRIM Analysts will forward it (Orig plus 1) 
back to the OP PRIM Analysts who in turn will ask 
the user testers to retest the transaction. 

PANVALET - Current list of PANVALET Specifications and 

Source - to include program/module, PANVALET 
numbers, date last updated and level numbers. 

COMVAD 

DATADOC / PROGRAMDOC 

PRIM Users Manual 

PRIM Program Manual 

PRIM Production Manual 

Applications Manual 

Report-Writer Software 

RAMIS Graphics 

PDL 

PRIM DBM Manual 


Audit Trail - Containing sufficient information to permit 
a regular security review of system activity 
by Office of Security. 


Contingency Plan - Including backup procedures in the event 
the main system is damaged or destroyed. 
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GIMS pena Dictionaries, M and M/Dict, SYSMAN2 (except 
for passwords) - For Office of Personnel Analysts only. 


NOTE: CGther documentation which sets forth any special 
ditions and/or limitations impacting the system 


uirements will be provided by the PRIM Analysts. 


mples: Integration Test Review 
System Test Packets 
| 


2.2.3 SYSTEM $TRESS | 


| 
System Stress ¢t 
accuracy, timia 
System will pro 
cial HRS2 data 
access to emplo 
on-line queries 
ficial data" on 

| 


sts will be measured in terms of reliability, sizing, 
» availability, backup and recovery. In Release 1 the 
ide components terminal access and retrieval of offi- 
long with the capability for components to transfer 
ee data between| components and to generate their own 
or reports, cffline reports and graphs utilizing "of- 


ho 
ho 
wm 
i 
cl 
H 
m= 


B29 04 Cor.slistent Results 


Tests will be conducted to insure that the system provides the same 
results for the same successive requests for data providing neither 
the data nor the| software has been changed by an update. 

| | 


2.2.3,1.2 Consistent Output Response 


Tests| will be conducted to demonstrate that the requested response 
level) with a dat reporting activity of up to 200 users can be accon- 
modated. Releasé 1 will have approximately 40-50 users; therefore, 
the full test with 200 users will be certified in a future release. 


2.2.311,.3 Consistent Update Response Level for Component Data 


Component Data Files will not be available in Release 1; testing of 
the update resposse level will be certified beginning with Release 2. 


. : - - 0006-1 
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2.2.3.2 SIZING 


2.2.3.2.1 Users 


The system must support up to 200 concurrent users actively querying, 
reporting or updating the Data Base. Release 1 will only certify ap- 
proximately 40-50 concurrent users, therefore, the full test with 200 
concurrent users will be certified in future releases. 


2.2.3.2.2 Data Files 


The system must support queries and reports requesting data from up to 
30 different user data files utilizing a minimum of 70 edit/validation 
dictionaries. In release 1 the System Integration Test Analysts will 
certify 10 data files and a minimum of 65 dictionaries exclusive of 
data files required to satisfy security. (Security is addressed in 
Section 2.2.4) 


PRIM FILES ACCESS 


INDEX FILES - A group of files will be provided for DB Manager 
both Active data and Separated data 
indexing. The files will be used in- 
directly via XBRIDGING from the PRIM 
PERSIGN and PRIMSEP files. A file 
will be provided for each Selection 
element used when building a Component's 
Active and Separated data links. The 
Index files will be established once 
and updated through XBRIDGES. How- 
ever, the Index files can be re- 
established with the PRINDX process. 


STATEMENT 

FILE - This file will permit the PRIM DBMGR DB Manager 
to format high volume query statements 
which components will utilize via the 
LISTSTMT Procedure. 

INTERFACE - This file contains all current Components 


INTERFACE data passed to PRIM from via SEGACCESS 
HRS2. The file will be accessed 

through SEGACCESS segments spanning 

to an INTERINDX which spans to 

INTERFACE. An INPURGE date for each 

INTERFACE record will be stored in 

the INTERINDX file and INTERFACE 

records will be deleted when that 

date is reached. Data will be 

loaded into the PRIM INTERINDX file 
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ie a BULK-LOAD statement using the 
isk created by the PRCAUPDT procedure 
reating an INPURGE date for each 
ecord, Data will be loaded into 

he PRIM INTERFACE file via an ITEM- 
UMP statement using the same disk. 


| i 

_INTERINDX - This file is the link between the Components 
EGACCESS files and the INTERFACE 
ile. Et contains a purge date 
INPURGE) for each INTERFACE record. 
his date will be used when purging 
ata from the INTERFACE file. The 
NTERINDX link (INTERLINK ) will also 


OFFICIAL 
‘DATA 

FILES - Files containing official personnel Components 
ata. These files are moved from 
RS2 and -include all Official data 


| equired from HRS2 by PRIM. 


PRIM 
PERSIGN - This is considered one of the Official Components 
ata files in so far as how it is linked. 
he entire FERSIGN file will be moved 
nly once (not: daily) into PRIM and 

ill be updated daily by the PRCHGLOAD 
rocedure with data received from the 
RS2 INTERFACE file via the PRCAUPDT 
rocedure. The FERSIGN data is 

ccessed by a component through the 
EGACCESS file (SYSMAN2+A) containing 
hat component.'s' Active data links. 


RIM INTERFACE File Name on HRS2 and DB Manager 
RIM. This file will insure dumps and 
oads are done in the same order. This 
ile will contain all files to be dumped 
ith a flag on those files to be dumped 


nly on weekends. 


PRIFN - 


PRIMSEP - This file will contain the PRIM PERSIGN Components 
| ecord for a separated employee plus that 

‘mp loyee's reason for separation and 

date of separation. This data is 

accessed by a component through the 

SEGACCESS file (SYSMAN2+S) containing 

that component's Separated data links. 


SEGACCESS - Set of segmented files. One set of DB Manager 
oe will be established for each 
evel of component access requested. 
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SELECTION 


SYSER 


COMVAD 


2.2.3.3 


2.2.3.3.1 


The file name will be the SYSMAN2 
Signon concatentated to either "A" 
(Active), "S" (Separated) or "Cc" 
(Component). All access of Official 
data (Active and Separated) will be 
through these segmented files. 


Set of segmented files. One segment 
will be established for each Signon 
ORG. This file will contain the 
Criteria used to select records 
authorized for the Signon ORG, Signon 
ORG text, ORGCODE links (SLORGLINK) 
and POSNR links (SLPOSLINK). The 
ORGCODE and POSNR data is accessed 
by a component through the SELECTION 
File. 


In addition to its normal function, 
this file will contain the Delete- 
Data and Invert statements needed 
to create new Index files for PRIM 
PERSIGN and PRIMSEP. This file is 
used by the PRINDX procedure. 


Files containing edit and validation 
data used in HRS2. These files are 
moved from HRS2 to support the Official 
data files and in Release 2 will support 
the Component data files. 


ACCURACY 


Transferred Data 


Component - 
Individual 
Selection 
File only 


DB Manager 


Components 


Data transferred from HRS2 into PRIM must reflect the exact same data 
values in the PRIM System as was present in HRS2 at the time the data 
was extracted (i.e., COMVAD) or processed via the HRS2 INTERFACE Data 
List to PRIM Active and PRIMSEP. 


2.2.3.3.2 


Edits and Validations for Component Data 


Component Data Files will not be available in Release 1, therefore, 
the edit and validations for these files will be certified in Releases 


2 and 4, 
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2.2.3.4 TIMING 


2.2.3.4.1 Dirett Query 


The System Integration Test Analysts will attempt to conduct stress 
testing to ensure that the system can complete 95 per cent of the di- 
rect queries in 4-7 seconds under normal operating conditions. How- 
ever, a more reajistic stress test will be conducted during the Accep- 
tance, Testing pina the OP analysts will utilize all 40+ IOC component 
representatives o stress test at a given point in time. The direct 

query will utilize the DBMS Query Language to retrieve data from se- 
lected data lists using the DLID as the selection criteria for re- 
trieving the information. (Normal operating conditions are as defined 


in the Detailed System Requirements Document, Section 3.2.4.1). 
| 


4.2 Complex Query 


2.2.5 


The System intestabicn Test Analysts will conduct stress testing toa 
ensure that the system can complete a complex query (end-to-end 
search) at the rate of 2,000 records per minute under normal operating 
conditions. However, a more realistic stress test will be conducted 
during the Accestance Test:ing where the OP analysts will utilize all 
40+ I0C component representatives to stress test at a given point in 
cime.| In addition, the System Integration Test Analysts will review 
the daily Data Base Exception Report which identifies query statements 


executiag longer|than 3 minutes. 
| 


| 
2.2.3,4.3  Hard¢opy Reports 
| 


The System Integration Test Analysts will conduct stress testing toa 
ensure that the system can print, reports in 2 hours under normal oper- 
ating conditions |with a maximum cvernight turnaround. Subsequent re- 
leases will include "scheduled" batch production reports. 


2.2.3.4.4 Scheduling Updates to PRIM from HRS2 


The ext:ract of HRS2 data for updating the PRIM System must occur after 
the complete nizhtly update of the HRS2 Data Base. The System Inte- 
gration Test tly serving as "PRIM Data Base Manager" will review 
the Data Base a and output from any nightly updates (Route *A) ite 


ensure the updacds to PRIM were made. In addition, the "Data Base 
P se | w i 
Manager compares selected HRS2 Data Lists and number of data items to 


the PRIM Data Lists and number of data items. 
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2.2.3.4.5 Updates to Component Data 


Component Data Files will not be available in Release 1. Stress Test- 
ing of the update timings will be certified beginning with Release 2. 


2.2.3.5 AVAILABILITY 


The PRIM System must be available during regular working hours 
(0800-1800 hours), thus the System Integration Test analysts will con- 
duct system availability tests on the data base during these hours. 

In addition, the system cannot operate in a degraded mode for more 
than one day and the degraded mode must only affect response time with 
no affect on the system's functional capabilities. 


2.2.3.6 BACKUP 


Tests will be conducted to insure that the PRIM System is backed up 
daily with audit trails of all updates to data and PRIM software. The 
daily backup must occur without user activation or intervention. The 
daily backup must be retained for a period of one-work week, a weekly 
backup must be kept until the next monthly backup; and each monthly 
backup is replaced by the next monthly backup. 


2.2.3.7 RECOVERY 


The PRIM System must virtually self recover in the event of hardware 
failure or the inadvertent destruction of data and/or files. The re- 
covery process to restore the PRIM System or restart an interrupted 
activity must minimize the need for the user to re-enter data. 


2.2.3.7.1 Restore 


The capability must exist to restore the PRIM System as of the close 
of business the previous day, and also reprocess activity for the cur- 
rent day to minimize the need for the user to re-enter data. The re- 
store and reprocess activity must take less than two hours. The Sys- 
tem Integration Test Analysts serving as "PRIM Data Base Manager" will 
notify and coordinate with Production Division/ODP when the Data Base 
must be restored for either data or software problems. 
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2.2.4.) SOFTWARE (DEVELOPMENT AND PRODUCTION) 
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All PRIM Software received by the PRIM Team from the programmers will 
be thoroughly lad on the PRIMTEST Data Base and before it is moved 
to the Production System. The first phase of the System Integration 


Test 


dures/programs i 
system still per 
completed as it on when only specific areas were complete. If an er- 
ror is detected 


Integration ns the who will perform an integrated test of all proce- 


[Plan for Rellease 1 will consist of a System Test by the System 


a semi-live environment. This will verify that the 
orms in the same manner with all its functional areas 


ither on PRIMTE! 5T or PRIM, a problem report and/or 


change control (request for change) will be used to officially report 


the error. PRIM software which requires change must be conducted 


first 


and t; 


Leade 


tabli 


sure 


group of tests. | After testing on PRIMTEST, the PRIM Project Leader 


will 
sion 
Test 
level 
ing. 


2.2.4), 


All o 


s 


on ODP's PERTEST Data Base. After the error has been corrected 
ested by the programmer, they will certify to the PRIM Project 
r that it is ready for retest on PRIMTEST. PRIM test data is es- 
shed utilizing accepted numbering and dating conventions to en- 
the capability of re-executing or referencing any given test or 


notify the System Integration Test Aiaivet that the revised ver- 
is ready for acceptance testing and certify such via Integration 
Review. Where appropriate, PANVALET specifications and source 
S are required to be updated during all System Integration test- 


2 SYSTEM) SOFTWARE 


{ 
£ the Data Base Management System software related to controlling 


read 
Syste 
sure 
infor 
Proce 


2.2. 


The Agency ' s reghlation on Soupubes Security, HR [| controls the 


hardw: 
ing, 
Headqt 
fied 


to th 


class 


43 HARDWARE 


and/or write access to the PRIM System and to data in the PRIM 
m is highly) sensitive; therefore, tests will be conducted to en- 
access and data is limited to only the individuals needing the 
mation. Security locks and keys will be placed on selected GIMS 
gas and Dictionaries (i.e., M, M/Dict, SYSMAN2). 


are security for the PRIM System. All System Integration Test- 
Acceptance Testing and Production activity performed outside of 
uarters Buiiding must utilize only equipment approved for classi- 
use. cn vil Integration Test Analysts will monitor that nia 


1 not be conducted on equipment not approved for 
-@., graphics printer. 


e system wi 
ified use, 
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2.2.4.4 SECURITY CONTROLS 


2.2.4.4.1 Component Record Level Access 
Tests will be conducted to ensure that a component is restricted to 


a) access only the records for individuals 
assigned to that component or have a 
Career Service Designation of that component 


b) access data passed electronically between 
components for individuals with an upcoming/proposed 
assignment to that component 


c) enter, update and retrieve component data 


d) query and report on organizational, position 
and employee data that applies to their 
assigned job requirements. 


e) Directorate-level requires read access to 
all of the official organizational and 
position data as well as data for employees 
assigned to every office within the Directorate, 
or who have a grandfather Career Service 
Designation associated with that Directorate. 
Directorate level cannot have access to a 
component's input data. 


2.2.4,.4.2 Limited Data Access 


Tests will be conducted to ensure limited read access to an employee's 
race code. Only designated personnel such as those responsible for 
preparing applicant and promotion data for Uniform Selection Review 
Reports can have read access to this code. 


2.2.4.4.3 HRS2 Transferred Data 


Tests will be conducted to ensure that no one can update the data 
transferred into the PRIM Data Base from the HRS2 Data Base. The only 
way the data can be changed is by the next transfer of data from the 
HRS2 Data Base. The Security Matrix prevents anyone from entering new 
data, deleting data or changing data values of the HRS2 data stored in 
PRIM, 


: - 60006-1 
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2.2.4.4.4 


The System Integration Test Analysts will review the daily Security 


Apprdved Fo¥ Rease42608/0b/62! G&PRppss-dosssROsN260b0006-1 


PRIM Data Base Reporting Security 


Violations Repor against the PRIM Data Base which identifies violar 
tions of established read and/or write access control and the standard 


ACF2 violations yeport. Directorate Referents may be notified if 
abuses are detected. 


2.2.5 TEST DATA 


Release 1 will »srovide components terminal access and retrieval of 


“official” HRS2 data which is transferred to the PRIM Data Base each 


night. The see ae be tested by the System Integration Test Ana 
lysts in a semi- 
13 PRIM procedures, querying and reporting from: 


a)) 65+ 


b) the 


c) the new PRIM data files. 


PRIM PROCEDURES /PROCESSES | Responsibility* 


PRDDUME 
PRDLOAD 


| 
PRCAESTB 


PRCAYPDT 


PRCHGLOAD 


PRCATRSF 
| 


ive environment and will consist of re-executing the 


COMVAD) Dictionaries 


HRS2 Official data files and 


Test 


| 
- Create ITEM-DUMP statements. DBCC 
- Create ITEM-LOAD statements. DBCC 


- Establish a component's access DB Manager 
criteria in that component's 
SELECTION file. 


- Extract data from the HRS2 DBCC 
INTERFACE file which pertains 
to PRIM to be used by the 
PRCHGLOAD procedure. This is 
a BATCHGIM II program. 


- Uses disk from PRCAUPDT to make DBCC 
changes to PRIM PERSIGN and 
related Index files, PRIMSEP 
and related Index files, 
INTERINDX and load INTERFACE 
| record into the PRIM INTERFACE 
| file. 


- Allows a component to create an Components 
access to an employee's record 
for another component or remove 
ar) access to:a record created for 
one component by another component. 
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PRNTEPRG -~ Review component access segmented DBCC 
file and purge any records with 
PRGDTE LE the System date. 


PRINTPRG - Review the PRIM INTERINDX file for DBCC 
INTERLINKS with INPURGE LE the 
System date. Delete INTERLINK 
as well as the INTERFACE record 
related to it. 


PRACCUPDT - Allows the user the freedom to Components 
change a PRGDTE and add SSNORs to 
their component data file. 


PRCALINK - Uses SELECTION Criteria data from Components 
the SELECTION segment for Signon 
ORG to trigger the appropriate 
Index file(s) to build the daily 
link for that ORG. Done once a 
day - at the time of the first 
Signon for a particular ORG. 


PRINDX - This process extracts data from DBCC 
PRIM PERSIGN and/or PRIMSEP to DB Manager 
re-establish the Index files. 


PRORTLINK - Uses SLORGLINK in the SELECTION DBCC 
segments to build new links to the 
ORGCODE file for each segment and 
SLPOSLINK in the SELECTION segments 
to build new links to the POSNR 
file for each segment. This 
procedure is executed on weekends 
by DBCC. 


SEARCH - This procedure will be used by the Components 
components to query the NAME and 
HPOSNR files. 


LISTSTMT - Allows a component to access per- DB Manager 
formatted statements which contain 
selected full file data (QUAL, 
LREQID, ORGCODE, etc.) as well as 
high volume query statements, thus 
eliminating the need for a component 
to key the various data elements 
to execute their request. 


*Indicates test responsibility for Acceptance Testing. 


The testing will be conducted daily by the System Integration Test 
Team. In addition, the System Integration Test Team will pass access 
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ta an employee's official] data from one component te another for 
individuals pending an upcoming assignment to a specific component. 


2.2.6 CONSTRAINTS 


The initial timing requirement for transferring data to PRIM in Re- 
lease 1 is geared to the update process of data in the HRS2 Data Base. 
The extract of HRS2 clata for updating the PRIM System nightly must oc- 
cur after the cdmplete nightly update of the HRS2 Data Base. On occa- 
sion, due to a timing problem with the HRS2 job stream PRIM may not: 
get updated; henjever this will not seriously impact the users. A 
message appears jat Signon time of the last date of update to the Data 
Base, 


2.2.7 REGRESSION TESTING 


All PRIM test cases will be documented using preplanned test formats 
for each and every test with accepted numbering and dating standards 
to ensure the capability of re-executing any given test or group of 
tests. ‘The System Integration Test Analysts test top down, where ap- 
plicable; eee if'an error is detected and fixed, the eae 
ensure that the change made will not adversely affect previously test- 
ed code. 
| 


2.2.8 DATA RECDRDING | 
There is a test packet for every test case which is made from specifi- 
cations. The System Integration Test Analysts will review the results 
of all tests executed against these test packets. If an error is de- 
tected and corretted, the originator of the Problem Report must cel 


fy to the System] Integration Test Analysts that he/she has reteste 
the applicable procedure and along with the retest date. Data Bas 
Statistics betwepn HRS2.aad PRIM Data Lists will be analyzed daily| and 
maintained for at least 30 days after PRIM goes into Production. 


2.2.9 EVALUATION 
| 


Release | of PRIM is basically transferring “official” data from the 
HR52 Data Base tp PRIM via extracts; therefore, testing of range of 
data values used, combination of input: types used, etc. are not appli- 
cable! to PRIM in)Release 1. In addition, since PRIM is due to be up- 
dated nightly, the System Integration Test Analysts weer have to cre- 
ate test data for manipulation on a very "limited basi Testing 
evaluation is basically one of evaluating security ee ees, verifying 
the HRS2 INTERFACE coming in is applied properly and passing access to 
an employee's official daca from one component to another. 
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2.2.10 TEST CASE MAINTENANCE 


The System Integration Test Analysts will maintain and file the re- 
sults of all major or necessary tests during the System Integration 
Test phase or until Audit Staff has completed their audit of the sys- 
tem. 
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Chapter 1 


INTRODUCTION . 


1.1 PURPOSE 


The purpose of the Acceptance Test Plan is to demonstrate that the 
system satisfies the requirements as traced in the Requirements Trace- 
ability Matrix to the functional requirements. In addition, this doc- 
ument will address Quality Assurance test plans and procedures which 
will be conducted by Office of Personnel/PRIM Analysts from Automated 
Data Resources Branch. ADRB is officially charged with QA support for 
all OP/ADP applications and will be conducting an independent audit 
for verification and validation of the PRIM System prior to recommend- 
ing acceptance of the system. Due to the complexity of the PRIM Sys- 
tem, it is being designed and tested in a phased approach. This docu- 
ment will further provide for a mutual understanding by all parties 
concerned of the Acceptance Test criteria to be conducted during the 
development of the PRIM System. 


1.2 SCOPE 


This document presents the PRIM System Acceptance Test Plan/tasks 
which will control the PRIM test environment during development. 


The PRIM System is being designed in a phased approach, there- 
fore, the initial test plan will be written for Release 1 of PRIM. 
Thereafter the test plan will be updated for each successive release. 
However, the testing philosophy established in Release 1 will continue 
to be utilized in each successive release. 


Due to resource limitations, ODP/QAD will not be providing QA 
support or test plans in Release 1. Releases 2 through 5 are (TBR) 
regarding QAD participation. 


The test plan consists of 2 Chapters: 


Chapter 1 - ‘Introduction' presents the purpose and scope of the 
PRIM Acceptance Test Plan and references applicable to the contents of 
the Acceptance Test Plan. 


Chapter 2 - 'Plan' presents the major testing methodologies and 
defines testing criteria to be applied against the functional, per- 
formance, security, hardware, human engineering and interface require- 
ments. 
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1.3. REFERENCES 
The OP Analysts from the PRIM Team are utilizing a number of docu- 


ments, publications and other reference material in writing the PRIM 
Acceptance Test Plan. They are listed in Table 1. 


TABLE 1 


Documents, Publications and Reference Material 


1. Applications Manual 

2. Data Requirements Document 

3. Data Specifications Document 

4. Detailed System Design Specifications 
5. Detailed System Requirements Document 
6. Interface Control Document 

7. ODP Applications Documentation Standards 
8. Production Manual 

9. Program Manual 

10. Requirements Traceability Matrix 

11. System Development Plan 

12. System Integration Test Plan 


13. User Manual 
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Chapter 2 


PLAN 


2.1 FUNCTIONS 


PRIM is a centralized data base for use by the Personnel Officer, Ca- 
reer Management Officer, Office Director or Training Officer of a com- 
ponent in direct support of the component's day-to-day personnel man- 
agement activities. The overall objective of the test plan is to 
ensure that the system meets all of the requirements identified in the 
Detailed System Requirements Document and Detailed System Design Spec- 
ifications as mapped in the Requirements Traceability Matrix and list- 
ed below. 


a) Centralizing Official Data for Component Access (Release 1, 3 & 
5) 


b) Data Transfers Between Components (Release 1) 
c) Component Data Manipulation (Releases 2 & 4) 
d) Queries and Reports (Release 1) 

e) Controlled Component Data Access (Release 1) 


f) Other Requirements: Performance, Security, Hardware, Human En- 
gineering, Interface, Legal 


2.2 METHODOLOGY 


The initial Acceptance Test Plan is being written for Release 1 of 
PRIM; however, the testing philosophies established in Release 1 will 
be utilized in successive releases of PRIM. 


The test plan has been divided into 2 distinct areas ~ System and 
Acceptance. This is to aid in the detection of errors or deficiencies 
at the earliest point in time. Test packets are to be used; they are 


The term component in the context of this document is defined as a 
separate entity in the Agency's organizational structure be it a di- 
rectorate level, an office, a staff, a division, a service, or a 
center. 
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specifically designed to control the testing. There is a packet for 
every test case which is made from specifications received from the 
designers. The test packets are identified by a cover sheet with a 
unique test case number and include procedures which guide the testers 
in performing their tests. The OP/PRIM analysts will review the re- 
sults of all tests jexecuted against the system test packets. The PRIM 
test library will gnly contain functions that have passed all of ODP's 
tests-certified by jofficial pass. In addition, ODP is responsible for 
providing OP the tools which they may use in establishing their system 
test data base. PRIM's test data will be established in such a manner 


However, to achiev 


continuity and effective working relationships 


that any test or va eo of tests may be executed at any given time. 


with the ODP analy 


ts, the testers will, to the fullest extent possi- 


ble, execute projedt testing in the same developmental sequence fol- 


lowed by the ODP analysts. 


Plan for Release 1 


The first phase of the Acceptance Test 
will consist of a system test by the OP/PRIM Ana- 


lysts who will ee fee an integrated test of all procedures/programs 


in a semi-live env 
performs in the sa 


it did when only specific areas were complete. 


ronment. This will verify that the system still 
e manner with all its functional areas completed as 
An additional benefit 


from this phase will be the training and familiarization of the system 
to the PRIM Data Bdse Manager and the IOC users. 


Upon successful completion of the first phase, the second phase 


of acceptance test 
successful testing 


for Release 1 will begin. This will consist of 
of data base security (security matrices, integri- 


ty, access, etc.) gite testing, data transfers, performance, hardware, 


human engineering, 
HRS2 Data Base. 


reporting, and massaging interface data from the 


Testing will consist of processing transactions/data 


until test specifications are met and all documentation required for 
production and maintenance of the system are complete and accurate. 


The ODP PRIM Analysts will be notified of any system error or de- 


ficiency to ensure 


that appropriate action is taken. The OP/PRIM ana- 


lysts will maintain and file the results of all major or necessary 
tests during the acceptance phase or until Audit Staff has completed 


their audit of the 


2.2.1 TEST TEAM 


system. 


The Acceptance Test Team consists of the two OP/PRIM Analysts and em- 
ployees from 10 offices who have been selected to participate in the 


Initial Operating Capability (IOC) of PRIM. 


The senior OP PRIM Ana- 


lyst will provide the communications link between ODP and the IOC par- 
ticipants, Directorate Referents, the PRIM User Group and the Office 


of Personnel. She 
the testing effort 


will also keep management apprised on the status of 
via weekly reports or official briefings. 


The OP PRIM Analysts are responsible for: 


a) Assistance and guidance in writing system test specifications. 
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b) Assistance and guidance in writing acceptance test specifica- 
tions based on the re-execution of selected segments of all of 
the system test(s). 

c) Assistance and guidance in creating test data. 

d) Assistance and guidance in scheduling test resources. 

e) Assistance and guidance in sequencing and executing tests. 

f) Assistance and guidance in analyzing test results. 

g) Assistance and guidance in documenting all test results with ac- 
cepted numbering and dating standards to ensure the capability 
of re-executing or referencing any given test or group of tests. 

h) Communicating both positive and negative test results to the ODP 
PRIM Analysts and following up on remedial action necessary to 


correct deficiencies or errors with subsequent retesting. 


i) Ensuring that user documentation is complete and accurate as 
tests are executed. 


j) Ensuring that all Audit Staff's written requirements are met. 

k) Ensuring that all test objectives are met for the various data 
transfers. (Example: HRS2 Interface coming in and Data Trans- 
fers between components. ) 

1) Security controls (production, reports, users, etc). 

m)} Privacy Act compliances. 

n) Ensuring official pass of all documentation/access to all 
files/data lists/complete testing capabilities, etc. (See Sec- 


tion } 


The I0C Participants are responsible for: 


a) Writing acceptance test specifications based on the re-execution 
of selected segments or all of the system test(s). 


b) Creating test data in terms of transaction (menu) processing. 

c) Scheduling test resources. 

d) Sequencing and executing tests. 

e) Analyzing test results. 

f) Documenting all test results using preplanned test formats for 
each and every test with accepted numbering and dating standards 


to ensure the capability of re-executing or referencing any giv- 
en test or group of tests. 
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g) Communicating both positive and negative test results to the 
OP/PRIM Analysts and following up on remedial action necessary 
to correct deficiencies or errors with subsequent retesting. 


h) Ensuring that) user documentation is complete and accurate as 
tests are executed. Provide monthly status report to OP/PRIM 


Analysts. 
i) Complying wit 


j) Ensuring that 


h all Audit Staff's written requirements. 


all test objectives are met. 


Skills Required - The PRIM testers (IOC Components) must be 
knowledgable in GIMS, VM, RAMIS and the batch process, to input, up- 
date and retrieve information from the PRIM System. In addition, the 


IOC components are 
careerists in their 
releases of PRIM. 


committed to assisting in the training of other 
Directorate who will be participating in future 


2.2.2 RESOURCE REQUIREMENTS 
a) Human 

1. Production Division/ODP - Data Base Management support and 
DAC support during the development testing phase 

2. Operations Division/ODP - Operating the computer’ equipment 
that the PRIM development system will utilize during Accep- 
tance Tesiting. 

3. Engineering Division/ODP - System performance measurement 
and monitoring. 

4. Information and Analysis Branch/OP - HRS2 RAMIS Report defi- 
nition support. 

5. Automated Data Resources Branch/OP - PRIM DBM 

6. PRIM Users Group - Directorate Referents and Directorate ADP 
Control Officers represent various components during devel- 
opment. (PRIM Users Group will formalize changes to current 
requirements if the need arises. Request For Change (RFC) 
will be controlled via Configuration Management Procedures. 

7. Office of Communications 


i) Domestic Networks Division (DND) within OC handles all 


PRI 


of 


Approved 


lin 


M domestic communications. DND is responsible for 
installation and/or procurement of communications 
es, modems, and cryptographic equipment in support 
all PRIM peripheral equipment (terminals, remote 
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printers, and remote job entry stations). DND 
interfaces directly with Engineering Division (ED/ODP) 
in response to communications requirements or problems 
encountered in the PRIM Project. 


ii) Communications Security Division (CSD) within OC is 
responsible for TEMPEST testing/approval of all termi- 
nals and printers accessing PRIM. CSD interfaces di- 
rectly with ED/ODP in response to communications re- 
quirements or problems encountered in the PRIM 
Project. 


Office of the Inspector General (OIG) - The Information Sys- 
tems Audit Division of the Audit Staff will examine PRIM 
procedures, records and reports and certify that their tests 
are complete prior to the PRIM analysts recommending that 
the system be implemented. 


Office of Security - The Information Systems Security Group 
(ISSG) will play a consulting role in the evaluation of the 
PRIM System security feature during Acceptance Testing. 


b) Equipment 


1. 


2. 


Hardware 


The PRIM System will be accessed by the individual com- 
ponents through existing equipment. Peripherals in common 
use include video terminals (Delta Data 5000 or 7260 series) 
printers (TI Silent 700, Design 100). The components will 
be responsible for acquiring any additional equipment needed 
to access the PRIM System. Any equipment, specifically ter- 
minals or printers, currently installed or newly acquired by 
the components, must comply with standard Agency computer 
security regulations. 


All Acceptance Testing and Production activity per- 
formed outside of the Headquarters building must utilize 
only equipment approved for classified use. (Refer to Re- 
source Requirements, paragraph a) Human, above for further 
details regarding point of contact.) 


Software In House 


GIMS Yes 
DBM System Software related 

to controlling read and/or 

write to PRIM and to data 

in PRIM Yes 
VM Yes 


c) Materials 


Applicable Documents and Forms 
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Form 


Form 


Form 


Form 


Form 


Form 


Form 
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2968 - Hile Description 


The index or table of contents noting the acronym, 
relative sequence, test description, etc. of each 
data element in the project file. 


3692 - Data Element Description 


Used to define each data element within a given 
aplication of the system and its associated edit 
specifications. There is a copy of this form 

fon each data element listed in the file description 
mentioned above. 


3692A - Input Requirements 


Defines only those data elements that may be input 
(raquired or optional) to accomplish a particular 
task or transaction specified in the system design. 
An jerror message number is produced if a required 
data element is missing from the input. 


3692B - |Program Specification (PRIM has added this spec 
to the front of the POL in lieu of using the form.) 


Provides additional specifications necessary for 
the program to be written that are not previously 
recorded on the data element description form or 
the input requirements form. 


3692C - |Message Descriptions: 


Used to document all messages generated by the 
prdject transactions in message number sequence, 
their program source number, and corrective 
action to be taken upon display of the message. 


3719 - Menu Format 
A graphic layout of each menu to be used with a 
project transaction which is input on a CRT 
terminal. (All menus must be tested on both 
the Delta Data 5000 and 7260T series.) 


2278 - Program Narrative (PRIM has added this narrative to 
the front of the POL in lieu of using the Form.) 


Provides a general description of the program 
relating to any project function. 


3715 - Verification Procedures 


Document verification procedures that must be 
performed to determine successful program 


Approved For Release 2005/08/G2 ¢ GIA-REPP88-00893R000200060006-4 


Approved For Redse-2605/08/62" GIA-RbPss-00ss3Repeenbesooes=1 


execution and the identification of any messages 
that pertain to the program. 


Form 3417 - Report Specifications 
Form 3417A - Report Data Elements 


Used to supplement Form 3417 (above) in the* event 
of insufficient space. 


Form 3984 - Problem Report (Discrepancy Report) (This Form 
to be used for Release 1 only.) 


The IOC Testers will record problems on this form. 
The OP PRIM Analysts will analyze and if appropriate 
forward copy to ODP PRIM Analysts. This documents 
and controls the correcting and retesting of the 
problem(s). When the problem has been corrected, 
the ODP PRIM Analysts will forward it (Orig plus 1) 
back to the OP PRIM Analysts who in turn will 

ask the user testers to retest the transaction. 


PANVALET - canene list of PANVALET Specifications and 
Source - to include program/module, PANVALET 
numbers, date last updated and level numbers. 

COMVAD 

DATADOC / PROGRAMDOC 

PRIM Users Manual 

PRIM Program Manual 

PRIM Production Manual 

Applications Manual 

Report-Writer Software 

RAMIS Graphics 

PDL 

PRIM DBM Manual 

Audit Trail - Containing sufficient information to permit 

a regular security review of system activity 


by Office of Security. 


Contingency Plan - Including backup procedures in the event 
the main system is damaged or destroyed. 
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es, Dictionaries, M and M/Dict, SYSMAN2 (except for 
For Office of Personnel Analysts only. 


documentation which sets forth any special 

tions and/or limitations impacting the system 
rements will be provided by the OP PRIM Analysts. 
s (some with examples and comments) of additional 
to be used in system testing will be brovided 
the Acceptance Test Procedures Package. 

les: Integration Test Review 
System Test Packets 


SYSTEM STRESS 


will be measured in terms of reliability, sizing, 
Vailability, backup and recovery. In Release 1 the 
components terminal access and retrieval of offi- 
lg with the capability for components to transfer 
data between components and to generate their own 
reports, offline reports and graphs utilizing "of- 


ent Results 


cted to insure that the system provides the same 
e successive requests for data providing neither 
ftware has been changed by an update. 


ent Output Response 


cted to demonstrate that the requested response 
eporting activity of up to 200 users can be accom- 
will have approximately 40-50 users; therefore, 
200 users will be certified in a future release. 


ent Update Response Level for Component Data 


Component. Data Files will not be available in Release 1; testing of 
the update response level will be certified beginning with Release 2. 
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2.2.3.2 SIZING 


228s eed Users 


The system must support up to 200 concurrent users actively querying, 
reporting or updating the Data Base. Release 1 will only certify ap- 
proximately 40-50 concurrent users, therefore, the full test with 200 
concurrent users will be certified in future releases. 


2.2.3.2.2 Data Files 


The system must support queries and reports requesting data from up to 
30 different user data files utilizing a minimum of 70 edit/validation 
dictionaries. Release 1 will certify 10 data files and a minimum of 
65 dictionaries exclusive of data files required to satisfy security. 
(Security is addressed in Section 2.2.4) 


PRIM FILES ACCESS 


INDEX FILES - A group of files will be provided for DB Manager 
both Active data and Separated data 
indexing. The files will be used in- 
directly via XBRIDGING from the PRIM 
PERSIGN and PRIMSEP files. A file 
will be provided for each Selection 
element used when building a Component's 
Active and Separated data links. The 
Index files will be established once 
and updated through XBRIDGES. How- 
ever, the Index files can be re- 
established with the PRINDX procedure. 


STATEMENT 

FILE - This file will permit the PRIM DBMGR DB Manager 
to format high volume query statements 
which components will utilize via the 
INDXSTMT Procedure. 

INTERFACE - This file contains all current Components 


INTERFACE data passed to PRIM from via SEGACCESS 
HRS2. The file will be accessed 
through SEGACCESS segments spanning 
to an INTERINDX which spans to 
INTERFACE. An INPURGE date for each 
INTERFACE record will be stored in 
the INTERINDX file and INTERFACE 
records will be deleted when that 
date is reached. Data will be 
loaded into the PRIM INTERINDX file 
via a BULK-LOAD statement using the 
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disk created by the PRCAUPDT procedure 
creating an INPURGE date for each 
record. Data will be loaded into 

the PRIM INTERFACE file via an ITEM- 
DUMP statement using the same disk. 


INTERINDX - This file is the link between the Components 
SEGACCESS files and the INTERFACE 
file. It contains a purge date 
CINPURGE) for each INTERFACE record. 
This date will be used when purging 
data from the INTERFACE file. The 
INTERINDX link (INTERLINK) will also 
be deleted. 


OFFICIAL 

DATA 

FILES - Files containing official personnel Components 
data. These files are moved from 
HRS2 and include all Official data 
required from HRS2 by PRIM. 


PRIM - This is considered one of the Official Components 
PERSIGN Data Files in so far as how it is linked. 
The entire PERSIGN file will be moved 
only once (not daily) into PRIM and 
will be updated daily by the PRCHGLOAD 
procedure with data received from the 
HRS2 INTERFACE file via the PRCAUPDT 
procedure. The PERSIGN data is 
accessed by a component through the 
SEGACCESS file (SYSMAN2+A) containing 
that component's Active data links. 


PRIFN - PRIM INTERFACE File Name on HRS2 and DB Manager 
PRIM. This file will insure dumps and 
loads are done in the same order. This 
file will contain all files to be dumped 
with a flag on those files to be dumped 
only on weekends. 


PRIMSEP - This file will contain the PRIM PERSIGN Components 
record for a separated employee plus that 
employee's reason for separation and 
date of separation. This data is 
accessed by a component through the 
SEGACCESS file (SYSMAN2+S) containing 
that component's Separated data links. 


SEGACCESS - Set of segmented files. One set of DB Manager 
segments will be established for each 
level of component access requested. 
The file name will be the SYSMAN2 
Signon concatentated to either "A" 
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(Active), "S" (Separated) or "Cc" 
(Component). All access of Official 
data (Active and Separated) will be 
through these segmented files. 


SELECTION - Set of segmented files. One segment Component - 
will be established for each Signon Individual 
ORG. This file will contain the * Selection 
Criteria used to select records File only 


authorized for the Signon ORG, Signon 
ORG text, ORGCODE links (SLORGLINK) 
and POSNR links (SLPOSLINK). The 
ORGCODE and POSNR data is accessed 
by a component through the SELECTION 
File. 


SYSER - In addition to its normal function, DB Manager 
this file will contain the Delete- 
Data and Invert statements needed 
to create new Index files for PRIM 
PERSIGN and PRIMSEP. This file is 
used by ‘the PRINDX procedure. 


COMVAD - Files containing edit and validation Components 
data used in HRS2. These files are 
moved from HRS2 to support the Official 
data files and in Release 2 will support 
the Component data files. 


2.2.3.3 ACCURACY 


2.2.3.3.1 Transferred Data 


Data transferred from HRS2 into PRIM must reflect the exact same data 
values in the PRIM System as was present in HRS2 at the time the data 
was extracted (i.e., COMVAD) or processed via the HRS2 INTERFACE Data 
List to PRIM Active and PRIMSEP. 


2.2.3.3.2 Edits and Validations for Component Data 
Component Data Files will not be available in Release 1, therefore, 


the edit and validations for these files will be certified in Releases 
2 and 4, 
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2.2.3.4 TIMING 


2.2.3.4.1 Direct Query 


The OP PRIM Analysts will conduct stress testing utilizing IOC compo- 
nent representatives to ensure that. the system can complete 95 per 
cent of the direct queries in 4-7 seconds under normal operating con- 
ditions. The direct query will utilize the DBMS Query Language to re- 
trieve data from selected data lists using the DLID as the selection 
criteria for retrieving the information. (Normal operating conditions 
are as defined in the Detailed System Requirements Document, Section 
3.2.4.1) 


2.2.3.4.2 Complex Query 


The OP PRIM Analysts will conduct stress testing utilizing IOC compo- 
nent representatives to ensure that the system can complete a complex 
query (end-to-end search) at the rate of 2,000 records per minute un- 
der normal operating conditions. In addition, they will review the 
daily Data Base Exception Report which identifies query statements ex- 
ecuting longer than 3 minutes. 


2.2.3.4.3 Hardcopy Reports 


The OP PRIM Analysts will conduct stress testing utilizing IOC compo- 
nent representatives to ensure that the system can print reports in 2 
hours under normal operating conditions with a maximum overnight turn- 
around. Subsequent releases will include "scheduled" batch production 
reports. 


2.2.3.4.4 Scheduling Updates to PRIM from HRS2 


The extract of HRS2 data for updating the PRIM System must occur after 
the complete nightly update of the HRS2 Data Base. The PRIM Data Base 
Manager will review the Data Base Statistics and the output from any 
nightly updates (ROUTE *A) to ensure that the updates to PRIM were 
made. In addition, the Data Base Manager compares selected HRS2 Data 
Lists and number of data items to the PRIM Data Lists and number of 
data items. 
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2.2.3.4.5 Updates to Component Data 


Component Data Files will not be available in Release 1. Stress Test- 
ing of the update timings will be certified beginning with Release 2. 


2.2.3.5 AVAILABILITY 


The PRIM system must be available during regular working hours 
(0800-1800 hours), thus the analysts and customers will conduct system 
availability tests on both the development and production data base 
prior to recommending acceptance of the system. In addition, the sys- 
tem cannot operate in a degraded mode for more than one day and the 
degraded mode must only affect response time with no affect on the 
system's functional capabilities. 


2.2.3.6 BACKUP 


Tests will be conducted to insure that the PRIM System is backed up 
daily with audit trails of all updates to data and PRIM software. The 
daily backup must occur without user activation or intervention. The 
daily backup must be retained for a period of one-work week, a weekly 
backup must be kept until the next monthly backup; and each monthly 
backup is replaced by the next monthly backup. 


2.2.3.7 RECOVERY 


-----~Flre~PRIM System must virtually self recover in the event of hardware 


failure or the inadvertent destruction of data and/or files. The re- 
covery process to restore the PRIM System or restart an interrupted 
activity must minimize the need for the user to re-enter data. 


2.2.3.7.1 Restore 


The capability must exist to restore the PRIM System as of the close 
of business the previous day, and also reprocess activity for the cur- 
rent day to minimize the need for the user to re-enter data. The re- 
store and reprocess activity must take less than two hours. The PRIM 
Data Base Manager will notify and coordinate with Production Division/ 
ODP when the Data Base must be restored for either data or software 
problems. 
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2.2.4 CONTROLS 


2.2.4.1 SOFTWARE (DEVELOPMENT AND PRODUCTION) 


All PRIM Software received by "official pass" from ODP will be thor- 
oughly tested on the PRIMTEST Data Base and accepted by the user be- 
fore it is moved to the Production System for semi-live environment 
tests. The first phase of the Acceptance Test Plan for Release 1 will 
consist of a System Test by the OP/PRIM Analysts who will perform an 
integrated test of all procedures/programs in a semi-live environment. 
This will verify that the system still performs in the same manner 
with all its functional areas completed as it did when only specific 
areas were complete. Once the data base has been loaded with the live 
production version, all procedures, dictionaries, etc. will again be 
certified prior to the users having access to the system. If an error 
is detected either on PRIMTEST or PRIM, a problem report and/or change 
control (request for change) will be used to officially report the er- 
ror. PRIM software which requires change must be conducted first on 
ODP's PERTEST Data Base. After the error has been corrected and test- 
ed, ODP will certify via "official pass" that it is ready for retest 
on PRIMTEST. PRIM test data is established utilizing accepted number- 
ing and dating conventions to ensure the capability of re-executing or 
referencing any given test or group of tests. After user testing on 
PRIMTEST, the Senior OP Analyst will request that it be moved to the 
Production System via a DAC PIR. A copy of the DAC PIR is to be for- 
warded to ADRB certifying that the software was moved. Where appro- 
priate, PANVALET specifications and source levels are required as part 
of the "official pass" during all acceptance testing. 


2.2.4.2 SYSTEM SOFTWARE 


All of the Data Base Management System software related to controlling 
read and/or write access to the PRIM System and to data in the PRIM 
System is highly sensitive; therefore, tests will be conducted to en- 
sure access and data is limited to only the individuals needing the 
information. Security locks and keys will be placed on selected GIMS 
Procedures and Dictionaries (i.e., M, M/Dict, SYSMAN2). 


2.2.4.3 HARDWARE 


The Agency's regulation on Computer Security, HR [ controls the 
hardware security for the PRIM System. All acceptance testing and 
Production activity performed outside of Headquarters Building must 
utilize only equipment approved for classified use. IOC participants 
will be briefed on the use of Tempest Approved equipment. IOC partic- 
ipants will be referred to Office of Security and Office of Communica- 
tions/Domestic Networks Division regarding Hardware Security ques- 
tions. 
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2.2.4.4 | SECURITY CONTROLS 


2.2.4.4.1 Component Record Level Access 


Tests will be conducted to ensure that a component is restricted to 
s 
a) access only the records for individuals 
assigned to that component or have a 
Career Service Designation of that component 


b) access data passed electronically between 
components for individuals with an upcoming/proposed 
assignment to that component 


c) enter, update and retrieve component data 


d) query and report on organizational, position 
and employee data that applies to their 
assigned job requirements. 


e) Directorate-level requires read access to 
all of the official organizational and 
position data as well as data for employees 
assigned to every office within the Directorate, 
or who have a grandfather Career Service 
Designation associated with that Directorate. 
Directorate level cannot have access to a 
component's input data. 


2624.42 Limited Data Access 


‘Tests will be conducted to ensure limited read access to an employee's 
race code. Only designated personnel such as those responsible for 
preparing applicant and promotion data for Uniform Selection Review 
Reports can have read access to this code. 


2.2.4.4,.3 HRS2 Transferred Data 


Tests will be conducted to ensure that no one can update the data 
transferred into the PRIM Data Base from the HRS2 Data Base. The only 
way the data can be changed is by the next transfer of data from the 
HRS2 Data Base. The Security Matrix prevents anyone from entering new 
data, deleting data or changing data values of the HRS2 data stored in 
PRIM. 
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2.2.4.4.4 PRIM Data Base Reporting Security 


The OP Analysts will review the daily Security Violations Report 
against the PRIM Data Base which identifies violations of established 
read and/or write access control and the standard ACF2 violations re- 
port. Directorate Referents may be notified if abuses are detected. 


2.2.5 TEST DATA 
Release 1 will provide components terminal access and retrieval of 
"official" HRS2 data which is transferred to the PRIM Data Base each 
night. The data will be tested in a semi-live environment and will 
consist of re-executing the 13 PRIM procedures, querying and reporting 
from 

a} 65+ COMVAD Dictionaries 

b) the HRS2 Official data files and 

c) the new PRIM data files. 


Test 
PRIM PROCEDURES /PROCESSES Responsibility 


PRDDUMP - Create ITEM-DUMP statements. DBCC 
PRDLOAD - Create ITEM-LOAD statements. DBCC 


PRCAESTB - Establish a component's access DB Manager 
criteria in that component's 
SELECTION file. 


PRCAUPDT - Extract data from the HRS2 DBCC 
INTERFACE file which pertains 
to PRIM to be used by the 
PRCHGLOAD procedure. This is 
a BATCHGIM II program. 


PRCHGLOAD - Uses disk from PRCAUPDT to make DBCC 
changes to PRIM PERSIGN and 
related Index files, PRIMSEP 
and related Index files, 
INTERINDX and load INTERFACE 
record into the PRIM INTERFACE 
file. 


PRCATRSF - Allows a component to create an Components 
access to an employee's record 
for another component or remove 
an access to a record created for 
one component by another component. 
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PRNTEPRG 


PRINTPRG 


PRACCUPDT 


PRCALINK 


PRINDX 


PRCRTLINK 


SEARCH 


LISTSTMT 


Review component access segmented 
file and purge any records with 
PRGDTE LE the System date. 


Review the PRIM INTERINDX file for 
INTERLINKS with INPURGE LE the 
System date. Delete INTERLINK 

as well as the INTERFACE record 
related to it. 


Allows the user the freedom to 
change a PRGDTE and add SSNORs to 
their component data file. 


Uses SELECTION Criteria data from 
the SELECTION segment for Signon 
ORG to trigger the appropriate 
Index file(s) to build the daily 
link for that ORG. Done once a 
day - at the time of the first 
Signon for a particular ORG. 


This process extracts data from 
PRIM PERSIGN and/or PRIMSEP to 
re-establish the Index files. 


Uses SLORGLINK in the SELECTION 
segments to build new links to the 
ORGCODE file for each segment and 


SLPOSLINK in the SELECTION segments 


to build new links to the POSNR 
file for each segment. This 
procedure is executed on weekends 
by DBCC. 


This procedure will be used by the 
components to query the NAME and 
HPOSNR files. 


Allows a component to access per- 
formatted statements which contain 
selected full file data (QUAL, 
LREQID, ORGCODE, etc.) as well as 
high volume query statements, thus 


eliminating the need for a component 


to key the various data elements 
to execute their request. 
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DBCG 


DBCC 


Components 


Components 


DBCG 
DB Manager 


DBCC | 


Components 


DB Manager 


The testing will be conducted daily by 10 offices and the volume of 


data to be used consists of 12,000 tracks. 


In addition, components 


will also be able to pass access to an employee's official data from 
one component to another for individuals pending an upcoming assign- 


ment to a specific component. 


1 testing. 


Security is the major focus for Release 
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2.2.6 CONSTRAINTS 


The initial timing requirement for transferring data to PRIM in Re- 
lease 1 is geared to the update process of data in the HRS2 Data Base. 
The extract of HRS2 data for updating the PRIM System nightly must oc- 
cur after the complete nightly update of the HRS2 Data Base. On occa- 
sion, due to a timing problem with the HRS2 job stream PRIM may not 
get updated; however, this will not seriously impact the users. A 
message appears at Signon time of the last date of update to the Data 
Base. 


2.2.7 REGRESSION TESTING 


All PRIM test cases will be documented using preplanned test formats 
for each and every test with accepted numbering and dating standards 
to ensure the capability of re-executing any given test or group of 
tests. The OP Analysts and I0C Test Officers test top down; there- 
fore, if an error is detected and fixed, the testers ensure that the 
change made will not adversely affect previously tested code. 


2.2.8 DATA RECORDING 


There is a test packet for every test case which is made from specifi- 
cations received from the designers. The OP PRIM Analysts will review 
the results of all tests executed against these test packets. If an 
error is detected and corrected, the originator of the Problem Report 
must certify to the OP PRIM Analysts that he/she has retested the ap- 
plicable procedure and along with the retest date. Data Base Statis- 
tics between HRS2 and PRIM Data Lists will be analyzed daily and main- 
tained for at least 30 days after PRIM goes into Production. 


2.2.9 EVALUATION 


Release 1 of PRIM is basically transferring "Official" data from the 
HRS2 Data Base to PRIM via extracts; therefore, testing of range of 
data values used, combination of input types used, etc are not appli- 
cable to PRIM in Release 1. In addition since PRIM is due to be up- 
dated nightly, the OP PRIM Analysts will not have to create test data 
for manipulation. Testing evaluation is basically one of evaluating 
security matrices, verifying the HRS2 INTERFACE coming in is applied 
properly and passing access to an employee's official data from one 
component to another. 
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2.2.10 TEST CASE MAINTENANCE 
The OP PRIM Analysts will maintain and file the results of all major 


or necessary tests during the acceptance phase or until Audit Staff 
has completed their audit of the system. 
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Chapter 1 


INTRODUCTION 


1.1 PURPOSE 


The purpose of the Requirements Traceability Matrix (RTM) is to identify and 


trace requirements from the System Initiation Phase through the System Design 
Phase. 


1.2 SCOPE 


The Requirements Traceability Matrix is established in the Definition Phase with 
the identification of requirements specified in the System Requirements Docu- 
ment. The documentation for the PRIM System was already in motion when the ODP 
Documentation Standards became effective, therefore the PRIM Team did not pro- 
duce a System Requirements Document. The requirements listed under the SRD in 
the matrix were actually restated from the Detailed System Requirements Docu- 
ment. A further refinement of the requirements comes in the Detailed System Re- 
quirements Document. These detailed requirements are added and their subsequent 
allocation is identified in the System Definition Document. As the system life 
cycle progresses through the System Design Phase, the RTM will be expanded to 
include the Preliminary System Design Specifications, Data Specification Docu- 
ment and the Detailed System Design Specifications. 
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Chapter 2 


REQUIREMENTS TRACEABILITY MATRIX 


Listed on the following pages are the traceable requirements for the Detailed 
System Requirements Document, System Definition Document, Preliminary System De- 
sign Specifications, Data Specification Document, and the Detailed System Design 
Specifications. The traceable requirements for the System Requirements Document 
are documented in the third level of the Detailed System Requirements Document. 
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Chapter 1 


INTRODUCTION 


1.1 PURPOSE 


The Detailed System Design Specifications (DSDS) document is an expan- 
sion of the Preliminary System Design Specifications (PSDS) document 
for the PRIM System to describe the detailed approach by functional 
area. This document is used for coding and permits a controlled ini- 
tiation of the Implementation and Integration Phase. 


1.2 SCOPE 


The PSDS presents the design overview, hardware/operating environment, 
and description of system software by functional area. The DSDS ex- 
pands the PSDS to include system design at a level of detail which al- 
lows the software to be coded. Once approved by the Critical Design 
Review, this document is used for coding, as well as, a control point 
for the Implementation and Integration Phase. 


Chapter 1 - ‘INTRODUCTION’ presents the purpose and scope of the 
PSDS and all references applicable to the contents of this document. 


Chapter 2 - 'DESIGN OVERVIEW' presents the scope of the design 
effort, identification of the functional areas comprising the develop- 
ment effort, and the functional flow of the system. 


Chapter 3 - 'HARDWARE/OPERATING ENVIRONMENT' presents a discus- 
sion of the design for the PRIM operating system, including the fol- 
lowing subjects: Identification of the hardware and software packages 
to be utilized, an overview of the system architecture, description of 
hardware devices involved, and a description of each piece of system 
software in the design. 


Chapter 4 - ‘FUNCTIONAL SOFTWARE DESIGN' presents the design of 
the PRIM System software by functional area and a detailed design of 


each function. 


Chapter 5 - 'SYSTEM CONVERSION SPECIFICATIONS’. N.A. 
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1.3. REFERENCES 


The PRIM Project Team is utilizing a number of documents, publi- 
cations and other reference material listed in Table 1 below. 


——em eee eee eee ee ee ee eee ee ee ee eee eee ewe eee ee eee ee 


TABLE 1 


Documents, Publications and Reference Material 


1. ODP Applications Documentation Standards 


3. PRIM Detailed System Requirements Document 
4. PRIM Data Requirements Document 
5. System Definition Document 


| 

| 

| 

| 

| 

| 

| 

| 

| 2. PRIM System Development Plan 
: 

| 

| 

| 

| 

| 6. Pleminary System Design Specifications 
| 
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Chapter 2 


DESIGN OVERVIEW 


The purpose of this effort is to develop a centralized data base for 
use by the Personnel Officer, Career Management Officer, Office Direc- 
tor, or Training Officer of a component in direct support of the com- 
ponent's day-to-day personnel management activities. The PRIM Data 
Base will contain organizational, position, and employee data current- 
ly resident on the HRS2 Data Base, and will provide components with 
the capability to access the data for queries and reports as well as 
the capability to enter, update, and retrieve their own component 
data. Data will be received from HRS2 on a nightly basis. For ease 
in the interface and because HRS2 is a GIM-II data base, PRIM will 
also be designed as a GIM-II data base. An intricate security matrix 
will control all read/write access to the PRIM Data Base as appropri- 
ate. 


The PRIM development effort is comprised of the following four 
functional areas: 


- Centralizing Official Data For Component Access. 
- Component Data Files For Manipulation 

- Controlled Component Data Access. 

- Data Retrieval by Components. 


Figure 1 of the Appendix depicts the functional flow of the PRIM 
System. 


The PRIM System is a new application and conversion from an ex- 


isting system is unnecessary. It will, however, interface with the 
HRS2 Data Base for all of it's data in the first Release. 


Approved ASt Release. POPSLORNE 5, CIAERDE88-00893R000200060006-1 


Approved FbY Reiaa8e 206s /88I63 54h Rb P88 0893R0662600600084 


Chapter 3 


HARDWARE/OPERATING ENVIRONMENT 


Figure 2 of the Appendix illustrates the Hardware Configuration 
for the PRIM System. 


The schematic in Figure 2.1 of the Appendix illustrates a simplified 
version of the overall design of the Data Base Management System (DMS) 
services of GIM-II. Each of these blocks represents a basic function 
which is performed by the GIM-II system. The GIM-II functions are 
evoked through language statements or transactions. Each statement is 
analyzed via the Lex and Syntax Analysis Processor and, depending upon 
the keywords identified within that transaction, control is passed to 
either an appropriate processor or a specified processing string is 
built. Each of the processors as they pertain to PRIM will be de- 
scribed below in System Architecture. 


3.1 SYSTEM ARCHITECTURE OVERVIEW 


3.1.1 LEX AND SYNTAX ANALYSIS 


The Lex & Syntax Analysis Processor translates the user input state- 
ment into an interpretive processing string. 


1. Performs all Master Dictionary and User Dictionary Retrievals, 
and S/EDITS, 


2. Checks statements for conformance to syntactical rules, 
3. Initializes all processing tables, 


4. Adds all appropriate elements to the interpretive string as di- 
rected by edits and/or correlatives, and 


5. Forms special strings and exits to special processors for types 
1 and 2 verbs. 
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3.1.2 SECURITY PROCESSOR 


The Security Processor provides for data base protection via the 
SIGNON/SIGNOFF verbs and LOCK/KEY processing. The Security Processor 
processes the SIGNON and SIGNOFF functions and provides support servi- 
ces for data list, device and program protection. The LOCK/KEY pro- 
cessor will limit access to specific fields (i.e. race code), specific 
files, and verbs. 


3.1.3 DICTIONARY DEFINITION AND STRUCTURE 
The Dictionary Definition and File Structure Processor provides for 
the structural control of the data base and performs the following 
functions: 

1. Audits user's structural definitions and dictionary formats, 


2. Allocates new data list areas and releases data list areas, 


3. Compiles dictionaries into an interrelated set of interpreted 
definitions, 


4. Provides for the management of the compile area, 


5. Provides support to other processors interfacing with the dic- 
tionary or name tables, and 


6. Prepares appropriate user messages. 


3.1.4 DEBUG PROCESSOR 


The Debug Processor is a collection of functions whose requirements 
are derived from the necessity to assist both program maintenance and 
initial data base construction and maintenance activities. These 
functions are not used in a production or operational environment but 
in a test environment. These multiple functions allow the analyst/ 
programmers to check and debug the performance of the PRIM applica- 
tion. 


3.1.5 LOADER PROCESSOR 
The Loader Processor provides the capability to bulk load data via the 
DLOAD/SYSLOAD/BULK-LOAD functions. The Loader Processor performs the 


following functions: 


1. Bootstraps the system, 
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2. Forms disk images for loading data into the data base from fix- 
ed format records which are externally definable, and 


3. Forms disk images for loading data into the data base from re- 
cords in GIM-II record format. 


3.1.6 DATA BASE MANAGEMENT PROCESSOR (DBM) 


The Data Base Management Processor provides the basic checkpoint and 
recovery capabilities via functions such as DDUMP, RESTORE, REPROCESS, 
REALLOCATE, etc. The DBM Processor: 


1. Determines the services required and dispatches the proper 
function, 


2. Performs user and data list integrity checks, 


3. Provides a PHYSICAL and/or LOGICAL dump tape, and a 
PHYSICAL/LOGICAL disk restore capability, 


4. Provides history tape analysis and reprocessing, and 


5. Prepares appropriate user messages. 


3.1.7 PARSE AND PROCESS CONTROLLER (PCON) 


The function of the Parse and Process Controller is to form the execu- 
table string and select the appropriate logical item (record) for pro- 
cessing. Processors return to PCON for each new item to be processed. 
The Parse and Process Controller: 


1. Constructs executable strings in reverse polish notation where 
appropriate, 


2. Performs analysis of logical and arithmetical phrases for con- 
sistency of definition, 


3. Selects all logical items (records) to be processed, 


4. Supports all logical and arithmetical calculations, including 
Editing and Selection, and 


5. Dispatches the selected logical item (record) to the appropri- 
ate processor. 
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3.1.8 UPDATE PROCESSOR 
The Update Processor controls the basic functions of ADD, CHANGE, and 
DELETE. All new record images from these functions are created via 


the Update Processor. The Update Processor: 


1. Validates the input values against the defined structural re- 
quirements, 


2. Evokes any secondary data lists to be updated, 


3. Creates a new image of the primary and secondary data list re- 
cords, and 


4. Prepares user notification of results. 


3.1.9 RETRIEVAL PROCESSOR 


The Retrieval Processor consists of the basic retrieval functions, 
e.g. LIST, COUNT, TOTAL, and EXTRACT, and their derivative functions, 
such as LISTV, LISTSA, LISTSD, etc. All general user retrievals from 
the data base are processed via this function. 
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3.2 HARDWARE DEVICES 


The PRIM Data Base will be physically located in the Ruffing Computer 
Center (GCO3), and will reside on one or more direct access storage 
devices such as 3350 disk packs. The data base management system for 
PRIM (GIM-II) will operate on a central processing unit (CPU) in GCO3 
such as the AMDAHL. Online access to the PRIM Data Base will be via 
video terminals such as the Delta Data 5000 or 7260, controlled by 
switching units such as the COMTEN, which connect the terminals to the 
main computer. 


Offline access to PRIM, for hardcopy reports, will be through 
printers in the component offices, such as the Design 100 and Texas 
Instrument Silent 700, or through high speed printers located in the 
area Data Base Control Centers and the Ruffing Center. 


Changes to the hardware configuration of the CPU or to any pe- 


ripheral equipment such as terminals, printers, switching units or 
disk drives must be compatible with the PRIM System. 


3.3 SYSTEM SOFTWARE 


The software system utilized by PRIM will be the Generalized Informa- 
tion Management (GIM-II) System. The purpose in using GIM-II is to 
simplify the definition, creation, maintenance, and interrogation of 
the PRIM Data Base. The GIM-II software functions provide for such 
features as: 


- File Definition 

- Initial Data Base Construction, 

~ Update, Selection, and Retrieval of Items, 

- Checkpoint and Restoration of the Data Base, 
- Security, 

~ Data Base Validation and Statistics, and 

- Recording of Transactions on History Tapes. 


Designed as a generalized data base management system, GIM-II has as 
objectives the following: 


- Flexible data structures suitable to each application 
(hierarchy-network), 

- Variety of access/search methods, 

- Centralized control of the physical organization of data, 

- Storage of data in relation to access frequency and 
response requirements, 

- Data independence of programs and devices, 

- Integrity of the data base against destruction and/or 
security breach, 

- Recycle and restart techniques in the event of hardware/ 
software failures, 

~ User interaction with the data base via inquiry 
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system or language, and 
- Multiple update/retrieval of information from the data 
base. 


The GIM-II data base and program libraries reside on direct-ac- 
cess devices to permit rapid response to online queries. In addition, 
the GIM-II System will provide a limited number of PRIM users with the 
capability to extract data to tape from the data base and to use these 
extract tapes to produce offline reports in a variety of formats. 


The GIM-II software system will satisfy PRIM's requirements to 
provide simultaneous, controlled access to the PRIM Data Base for mul- 
tiple components, and allow for both online and offline reporting of 
current data from Official Personnel and Component Data files. 


The GIM-II system operates under all the normal constraints of 
the host operating system (MVS) as any other task within the job 
stream. The PRIM System will reside on an online computer in the 
Ruffing Computer Center. 
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Chapter 4 


FUNCTIONAL SOFTWARE DESIGN 


A matrix of PRIM requirements is provided in Figure 3 of the Appendix. 
Data flow diagrams are also provided for each of the programs listed. 
Figure 4 in the Appendix is a list of all the procedures and a brief 
description of their function. Figure 5 in the Appendix is a list of 
files that are mentioned in the flow diagrams and their basic func- 
tion. 


4.1 CENTRALIZING OFFICIAL DATA FOR COMPONENT ACCESS 


4.1.1 DEFINITION 


THE PRIM System will provide a centralized data base for Agency Compo- 
nents to retrieve official data (organizational, position, and employ- 
ee data) currently resident in the Human Resources System (HRS2 Data 
Base). Specific files will be centralized on the PRIM Data Base 
through a series of ITEM-DUMPCX statements on HRS2 and then a series 
of DELETE-DATA statements followed by an ITEM-LOADX statement on PRIM. 
A flow diagram of the two procedures to perform this function is pro- 
vided in Figure 6 of the Appendix. 


4.1.2 PRDDUMP - HRS2/PRIM INTERFACE 


4.1.2.1 PURPOSE 


The movement of all specified data files from HRS2 to PRIM will be 
done via this procedure. The data file names are listed and main- 
tained in the PRIFN file by the HRS2 Data Base Manager. See flow dia- 
gram in Figure 6 of the Appendix. 
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4.1.2.2 GENERAL INFORMATION 


Proc Name : PRDDUMP 

Language Used: GIM POL 

Initiated By : Production Division - DBCC 

Frequency Of 

Execution : After all HRS2 updates are completed; 
will be done nightly as part of the 
HRS2/PRIM interface. 

Input : File names stored in PRIFN file on the HRS2 Data 
Base. 


PRIFN (DL/ID) PRWKENDFLG 


Output : The PRIFN file will be dumped to a 
reserved disk and all data from 
specified files will be dumped 
to a tape. 

DSN= G3P.A3176600. PRIM. PRIFN 
DSN= G31.A31C2000.PRIM.UPDATES 


4.1.2.3 FUNCTIONAL DESCRIPTION 


The PRIFN file is updated by the HRS2 Data Base Manager whenever addi- 
tional files are included in the HRS2/PRIM interface. The PRDDUMP 
procedure will acquire interface file names from the PRIFN file and 
then 'ITEM-DUMPX' the PRIFN file to a disk. A PRIFN record (WKEND) 
will be updated to contain a 'Y' in the PRWKENDFLG field when all 
files are to be dumped. If an "N" appears in this field, only the 
files listed in the PRIFN file that do not contain a value in 
PRWKENDFLG field will be moved. Some COMVAD translate files are to be 
moved only on weekends (Friday, Saturday or Sunday). These files will 
be flagged with an 'W' in the PRWKENDFLG field. The PRDDUMP will 
build an ITEM-DUMPCX statement for each of the files to be moved. Af- 
ter all statements have been built, the procedure will execute each 
statement. Data for all files will be dumped to a tape which will 
then be passed to the PRDLOAD procedure along with the disk containing 
the PRIFN file. 


4.1.2.4 INPUT 
This procedure will not utilize a menu; 'E PRDDUMP' will begin proce- 
dure execution. The procedure will create a dump statement for each 
file. 

- $DSN=(disk) ,$VOL=(CATLOG). ITEM-DUMPX 'PRIFN' 

- §$DSN=(tape) ,§$VOL=(CATLOG) . ITEM-DUMPCX '1ST FILE NAME' 


- SDSN=(tape),$VOL=(CATLOG) . ITEM-DUMPCX '2nd FILE NAME’ 
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- etc. 


4.1.2.5 OUTPUT 


One disk dataset will be created containing the PRIFN file and one 
tape will be created containing all selected data files to be loaded 
to the PRIM Data Base by the PRDLOAD procedure. 


4.1.2.6 GENERAL PROGRAM CONSIDERATIONS 


The names of the files to be moved from HRS2 to PRIM are stored in the 
PRIFN file. The files that are to be moved only on weekends are not 
critical files and contain a 'W' in the PRWKENDFLG field. 


An algorithm will be performed in the PRDDUMP procedure to deter- 
mine the day of the week. On the weekend (Friday, Saturday, or Sun- 
day), all files named in the PRIFN will be loaded. On other days, 
only those files with a blank in the PRWKENDFLG field will be loaded. 
The WKEND record in the PRIFN file will be updated with a Y¥Y or N value 
dependent on the result of the algorithm performed. 


A disk and a tape will be used for the PRDDUMP and PRDLOAD opera- 


tions. The disk will contain only the PRIFN file, the tape will con- 
tain the data of files dumped from HRS2. 


4.1.2.7 DETAILED PROGRAM SPECIFICATIONS 


DEC PRDDUMP 


DISK disk containing PRIFN data 
TAPE tape containing multiple file data 
PRIFN file containing files to be moved 
WKEND record in PRIFN showing type of DUMP to do 


WKENDFLG Flags those files for weekend move only 
enddec prddump 


PROC PRDDUMP 
DO algorithm to determine day of week 
YYDDD = YY = Year 
DDD = Julian day of year 
XY = 365.25 * YY 
XY DDD + KY 
IF decimal portion of XY = 0 ($SBF(XY,1,1'.") 
THEN XY = XY - 1.00 
endif; 
WHOLEXY = WHOLE PORTION OF XY / 7 
(SSBF(XY,0,1,'.') / 7) 
REMAINDER = Decimal Portion of WHOLEXY 
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(SSBF(WHOLEXY,1,1,'.') 
enddo; 
IF REMAINDER EQ 0 or REMAINDER EQ 7 or 
REMAINDER EQ 8 
THEN ADD 'Y' to PRIFN WKEND record 
(FOR PRIFN 'WKEND' ADD PRWKENDFLG 'Y') 
ELSE ADD 'N' to PRIFN WKEND record 
(FOR PRIFN 'WKEND' ADD PRWKENDFLG 'N') 
endif; 
DUMP PRIFN file to DISK 
SDISK, SDSN=G3P.A3176600.PRIM.PRIFN,$VOL=LOCATE . 
FOR PRIFN ITEM-DUMPX 
IF REMAINDER EQ 0 or REMAINDER EQ 7 OR 
REMAINDER EQ 8 
THEN ACQUIRE all PRIFN records with PRWKENDFLG EQ 
'W' or with null PRWKENDFLG 
ELSE ACQUIRE all PRIFN records with null PRWKENDFLG 
endif; 
DO FOR ALL RECORDS ACQUIRED 
BUILD ITEM-DUMPCX statement 
EXECUTE statement 
enddo; 
RELEASE tape 
endproc PRDDUMP; 


4.1.3 PRDLOAD - LOAD PRIM 


4.1.3.1 PURPOSE 


This procedure will create and execute statements to load HRS2 data to 
PRIM from a disk and a tape produced in the PRDDUMP procedure. A sec- 
ond step to the PRDLOAD process will roll the STRENGTH data up to the 
Directorate level. See flow diagram in Figure 6 of the Appendix. 


4.1.3.2 GENERAL INFORMATION 


Proc Name : PRDLOAD 
DAC-STMTS 
Language Used: GIM POL 
Initiated By : Production Division - DBCC 
Frequency Of 


Execution : This procedure must be executed in PRIM 
after the PRDDUMP procedure is executed 
in HRS82. 

Input : PRIFN file data on disk produced by 


the PRDDUMP procedure in HRS2. 
PRIFN(DL/ID) PRWKENDFLG 
Selected files per PRIFN PRWKENDFLG on 
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tape produced by the PRDDUMP procedure 
procedure in HRS2. 
Second Step: 
STRENGTH data (loaded daily) 
Output : PRIM files will be in sync with HRS2. 
STRENGTH data will be current as well 
as rolled up to Directorate level. 


4.1.3.3 FUNCTIONAL DESCRIPTION 


The PRDLOAD procedure will execute an ITEM-LOADX of the PRIFN file 
resident on the disk. The PRIFN file data will then be used to build 
DELETE-DATA statements for the additional files on the tape produced 
by the PRDDUMP procedure. An ITEM-LOADX statement will then be exe- 
cuted to load all the files to PRIM from the tape. Files to be loaded 
only on weekends (Friday, Saturday or Sunday) will be flagged with an 
'W' in the PRWKENDFLG field. 


A second step will be executed after successful completion of the 
file loads. This step will utilize a permanent disk (100 tracks) to 
extract (ETF) data from the STRENGTH file and BULK-CHANGE the data 


back to the STRENGTH file at the Directorate level (first position of 
ORGCODE) . 


4.1.3.4 INPUT 


No menus will be required for this procedure. The procedure will be 
initiated with the following statement: 


E PRDLOAD (PRIM LOAD) 
E DAC-STMTS STRENGTH (STRENGTH rollup) 
The procedure will execute an ITEM-LOAD statement for the PRIFN file. 
The procedure will then create a DELETE-DATA statement for each file 
named in the PRIFN file that is to be moved followed by another 
ITEM-LOAD statement to load new data into the files. 

Another step will use a second disk to rollup STRENGTH data to 
the Directorate level using the DAC-STMTS procedures and statements 
stored in the STRENGTH record in SYSER. 

- SDSN=(disk1),$VOL=(LOCATE) . ITEM-LOADX 
- S$DSN=(file),$VOL=(LOCATE) . ITEM-LOADX 
- $DSN=(disk2),SVOL=(LOCATE) . FOR STRENGTH ETF . 


- $DSN=(disk2),$vol=(LOCATE) . BULK-CHANGE STRENGTH . 
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4.1.3.5 OUTPUT 


The system will generate an information line when each file load is 
completed and a final statement when the entire load procedure is com- 
pleted. 


The second step (rollup of STRENGTH) will produce an completion 
message in the STRENGTHMSG record of SYSER. 


4.1.3.6 GENERAL PROGRAM CONSIDERATIONS 


The names of the files to be moved from HRS2 to PRIM are stored in the 
PRIFN file. The files that are to be moved only on weekends are not 
critical files and contain a 'W' in the PRWKENDFLG field. 


An algorithm is performed in the PRDDUMP procedure to determine 
the day of the week. The result of the algorithm is stored in the 
WKEND record of the PRIFN file. The PRIFN file will always be loaded 
first and the WKEND record will be checked to determine if a weekend 
or daily load is to be done. The old file data is deleted from the 
appropriate files before the ITEM-LOAD is executed. 


A disk and a tape will be used for the PRDDUMP and PRDLOAD opera- 
tions. The disk will contain only the PRIFN file, the tape will con- 
tain the files dumped from HRS82. 


A second step in the LOAD process will use a second disk to ex- 
tract data from the STRENGTH file and BULK-CHANGE the data back to the 
STRENGTH file at the Directorate level. This process will use the 
DAC-STMTS procedure and two statements stored in the SYSER STRENGTH 
record. 


4.1.3.7 DETAILED PROGRAM SPECIFICATIONS 


DEG PRDLOAD 


DISK1 disk containing PRIFN data 
TAPE tape containing multiple file data 
PRIFN file containing files to be loaded 
WKEND record to notify which kind of load to do 


PRWKENDF LG flags files to be moved on weekends only 
enddec PRDLOAD 


PROC PRDLOAD 
LOAD the disk (contains PRIFN data) 


ACQUIRE WKEND record PRWKENDFLG 
IF WKEND record PRWKENDFLG EQ 'Y' (weekend) 


THEN ACQUIRE all PRIFN records except WKEND 
(FOR PRIFN WITH PRIFN NE 'WKEND' ACQUIRE) 
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ELSE ACQUIRE all PRIFN records with null PRWKENDFLG 
(FOR PRIFN WITH NULL PRWKENDFLG ACQUIRE) 
endif; 
DO for all file names acquired 
DELETE-DATA filename 
enddo; 


LOAD data from the tape 
(. $DSN=G31.A31c2000.PRIM.UPDATES(0),SVOL=LOCATE . ITEM-LOADX) 


EXIT PRDLOAD 
endproc PRDLOAD 
SECOND PART OF LOAD PROCESS: 


E DAC-STMTS STRENGTH 


4,2 COMPONENT DATA FILES FOR MANIPULATION 


4.2.1 DEFINITION 


The Component Data files will give the components the ability to add, 
change, and delete data in files reserved for each component's use. 
The actual data field requirements for these files have not been gath- 
ered. Decisions will be made at meetings with the referents. The ac- 
tual design of this requirement will be done in Release 2. 


4.3 CONTROLLED COMPONENT DATA ACCESS 


4.3.1 DEFINITION 


The PRIM System must provide a means of restricting components to only 
that data which pertains to that component. This will be done through 
a security matrix utilizing segmented files. Access segments will be 
established in the SEGACCESS file for each component on the PRIM Sys- 
tem consisting of a separate access segment for each level of access 
requested by each component. The PRIM Data Base Manager, in conjunc- 
tion with the component, will be responsible for ordering the estab- 
lishment of new segments and for adding the selection criteria needed 
to establish the access data in the SEGACCESS segments used to access 
Active (PRIM PERSIGN) and Separated (PRIMSEP) data. Further changes 
to this SELECTION data will be done by the data base manager. Flow 
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diagrams of the seven procedures required to perform this function are 
provided in Figures 7 thru 13 of the Appendix. 


4.3.2 PRCAESTB - ESTABLISH COMPONENT ACCESS 


4.3.2.1 PURPOSE 


To establish a component's access in the PRIM System, the Data Base 
Manager will request that new segments be created in the SEGACCESS 
file (one segment for Active links and one segment for Separated 
links). A new segment will be created in the SELECTION file to con- 
tain the Selection Criteria (SLCRITERIA), SLORGLINKS, and SLPOSLINKS. 
The Data Base Manager will request an addition to SYSMAN2, anc then 
use the PRCAESTB procedure to add Criteria to the SELECTION file which 
is used to establish the access links to the PRIM Official Data files 
and to the Separated Data file (PRIMSEP) for specified SEGACCESS file 
segments. See flow diagram in Figure 7 of the Appendix. 


NOTE: The first character of the SEGACCESS file name cannot be a 'Z' 
or a numeric value because of SYSMAN2 limitations. 


4.3.2.2 GENERAL INFORMATION 


Proc Name : PRCAESTB 

Signon ID : The PRIM ORG identifier will be established 
by the Data Base Manager and will be unique 
for each level of access. 

Language Used: GIM POL 

Frequency Of 


Execution : Executed whenever a new segment is to be 
created, changed, or deleted. 
Input : SSNOR 
Career Service Designation 
ORGCODE 
Schedule/Grade 


Sub-Category Code 
Occupational Code 

Output : An entry will be made into the new 
SELECTION segment used by the PRCALINK 
Procedure to input the DL/ID (SSNOR) of 
records that can be accessed by the newly 
established segment. 
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4.3.2.3 FUNCTIONAL DESCRIPTION 


This procedure will establish the access links to the PRIM Official 
Data Files based on ORGCODE, SD, OCCE, SCH, GR, or SCCE. The PRIM 
Data Base Manager will input the selection parameters via a menu. 

This data will be used by the PRCALINK procedure to retrieve and store 
all SSNOR's to a specific SEGACCESS segment at the time of the first 
daily access. The PRCAESTB procedure can also be used to change the 
access level by entering new access level selection parameters for a 
given SEGACCESS segment. 


4.3.2.4 INPUT 


This procedure will utilize the following menu which will be stored in 
the MENU-FORMATS file: (Component Access Establish) 


E PRCAESTB * %& %* DATA BASE MANAGER USE ONLY * * * 


PROCEDURE ACTION: __ ADD(A) CHANGE(C) RETRIEVE(R) EXIT(X) 
DELETE(D) ADD NEW ORG ONLY(AS) 
ACCESS SEGMENT: TEXT: 
SD OCCE SCH GR thru GR SCCE ORGCODE 


PTET T PETE ETT 
| 
| 


MENU ITEM DESCRIPTION 
(R) PROCEDURE ACTION: A,C,D,R,X,AS (LAO2) 


(R) ACCESS SEGMENT: Name of SEGACCESS file (LA06) 
(Same as SYSMAN2 Signon ORG) 


(R) TEXT: Access Segment Text (LA12) 
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(At least one of the following must be present for A or C) 


(CO) SD: Career Service Designation (LA03) 

(O} OCCE: Occupational Series Code (LA0Q7) 

(0) SCH: Schedule Of Grade (LA04) 

(QO) GR: Individual Grade (LAO2) 
(One GR or from/thru range) 

(O) SCCE: Sub-Category Code (LAO1) 

(0) ORGCODE: Organization Code (LA19) 


4.3.2.5 OUTPUT 


If Action is absent and/or Access Segment is absent 
then error message (action and segment file name required). 
endif; 


NOTE: An edit in SYSMAN2 prohibits a SYSMAN2 ORG with 
a first character of numeric or "Z" 


If SD, OCCE, SCH, GR, SCCE and ORGCODE EQ BLANK 
and Action NE 'R' or 'D' 
then - error message (one of the selection fields 
must be present) 
endif; 


If Action = 'A' and null Text 


then - error message (Text required for 'A' action) 

endif; 

If Action = 'A' and present Text 

then - review remaining fields for values (at least one must 


be present) 

- add Criteria to SELECTION file for the specified 
Access Segment. Each line should be added as a single 
selection with each field separated by an asterisk(*). 


If Action = 'C' and present SD, OCCE, SCH, GR, SCCE, ORGCODE or 
present TEXT (will replace all SELECTION Criteria with the 
new Criteria on the menu). 

then - review remaining menu lines for values. 

- Access Segment on menu = SELECTION file to be changed. 

- delete Criteria present in SELECTION file 

- add all Criteria entered on the menu to SELECTION 
file (each line as a separate value). 


endif; 
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If Action = 'D' 

then - delete all Criteria from the SELECTION file for the 
Access Segment (SYSMAN2) specified on the menu. 

endif; 


If Action = 'AS' 

then - add new ORG selections only on menu to the SELECTION 
segment (do not delete or replace existing Criteria). 

endif; 


If Action = 'R' 
then - retrieve all Criteria from the SELECTION file for the 
Access Segment listed on the menu. Print below the 
menu. 
~ retrieve TEXT from the SELECTION file - print on the 
menu, 
endif; 


If Action = 'X' 
then exit the procedure. 
endif; 


4.3.2.6 GENERAL PROGRAM CONSIDERATIONS 


The PRCAESTB procedure will update a segmented file (SELECTION). The 
segment to be updated is specified in the Access Segment field of the 
menu. The segment must have been previously established and the seg- 
ment name will be the same as the SYSMAN2 Signon Org the Component 
will use at signon time. 


This procedure is for the exclusive use of the PRIM Data Base 


Manager to establish Criteria to be used in creating Access links for 
a Component. 


4.3.2.7 DETAILED PROGRAM SPECIFICATIONS 


DEC PRCAESTB 


BLANK value ' ' 

SELECTION value 'NO' 

SARRAY value 5 

SA single dimensional arrays 
SA(2) array containing Action value 
SA(3) array containing Access Segment 
SA(4) array containing Text value 


$A(5) thru $A(109) arrays contain Criteria data 
enddec PRCAESTB 


PROC PRCAESTB (establish selection criteria) 


READ menu values into $A single demensional arrays 
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IF Signon Org ne DBMGRP 
THEN - PRINT message stating for data base 
manager use only 
endif; 


IF $A(2) EQ BLANK or $A(2) NE 'A' or $A(2) NE 'C' or 
$A4(2) NE 'D' or $A(2) NE 'R' or $A(2) NE 'X' 
or $A(2) NE 'AS' 
THEN - PRINT message stating valid Action required 
- RUN EXIT-FOR-RESTART 
ELSE 
IF S$A(3) EQ BLANK 
THEN - PRINT message stating Access Segment 
required 
- RUN EXIT-FOR-RESTART 
endif; 
endif; 


DO UNTIL SELECTION = 'YES' or SARRAY = 109 
IF SA(SARRAY) NE BLANK 
THEN - SELECTION = 'YES' 
ELSE - SARRAY = SARRAY + 1 
endif; 
enddo; 


IF SELECTION = 'NO' and $A(2) NE 'R' or 'D' 
THEN - PRINT error message requesting one selection 
field to be filled in © 
- RUN EXIT-FOR-RESTART 
endif; 


IF $A(2) EQ 'A' and null $A(3) 
THEN - PRINT error message requesting Text for 
Action 'A' 
- RUN EXIT-FOR-RESTART 
endif; 


IF $A(2) EQ 'A' and present $A(3) 
(Add new to the SELECTION segment specified by 
Access Segment field on menu) 
THEN - RUN ACASE 
~ RUN ADDCASE 
- RUN EXIT-FOR-MORE 
endif; 


IF $A(2) EQ 'AS' 
(Add additional ORG and/or TEXT to SELECTION segment 
specified by Access Segment field on menu) 
THEN - RUN ASCASE 
- RUN ADDCASE 
- RUN EXIT-FOR-MORE 
endif; 
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IF $A(2) EQ 'C’ (Change entire Criteria) 
THEN - RUN CCASE 

- RUN ADDCASE 

- RUN EXIT-FOR-MORE 
endif; 


IF $A(2) EQ 'D' (Delete all Criteria) 
THEN - RUN DCASE 

- RUN EXIT-FOR-MORE 
endif; 


IF $A(2) EQ 'R' (Retrieve current Criteria) 
THEN - RUN RCASE 

- RUN EXIT-FOR-MORE 
endif; 


IF $A(2) EQ 'X' (Exit the Menu) 
THEN - RUN EXIT-FOR-NOMORE 


endif; 
DEC ACASE 
STMT temporary buffer area 
$A(3) array containing Access Segment 


SA(4) array containing Text 
enddec ACASE 


PROC ACASE 
(Build first part of an add statement using ADD NEW) 
(STMT = ‘ADD NEW "//$A(3)//$QM//$A(3) //SQM//SLTEXT// 
$QM//$A(4)//$QM) 
endproc ACASE; 


DEC ASCASE 
BLANK value ' ' 
STMT temporary buffer area 
$A(3) array containing Access Segment 
$A(4) array containing Text 


enddec ASCASE 


PROC ASCASE 
(Build first part of statement using ADD verb) 


(STMT = ‘ADD '//8$A(3)//$QM//$A(3)//$QM) 


IF $A(4) NE BLANK 
THEN - continue add statement to include Text 
(STMT = STMT//' SLTEXT "7/SQM//8A(4)//$QM) 
endif; 
endproc ASCASE 


DEC ADDCASE 


BLANK value ' '' 

STMT2 temporary buffer area 
A value 5 

B value 6 
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C value 7 
D value 8 
E value 9 
F value 10 
G value 11 


SA(5 through 11) ist line of Criteria data 
$A(12 through 18) 2nd line of Criteria data 
SA(19 through 25) 3rd line of Criteria data 
$A(26 through 32) 4th line of Criteria data 
$A(33 through 39) 5th line of Criteria data 
SA(40 through 46) 6th line of Criteria data 
$A(47 through 53) 7th line of Criteria data 
$A(54 through 60) 8th line of Criteria data 
$A(61 through 67) 9th line of Criteria data 
$A(68 through 74) 10th line of Criteria data 
SA(75 through 81) llth line of Criteria data 
$A(82 through 88) 12th line of Criteria data 
$A(89 through 95) 13th line of Criteria data 
$A(96 through 102) 14th line of Criteria data 
$A(103 through 109) 15th line of Criteria data 
enddec ADDCASE 


PROC ADDCASE 
(Start at first array of each Criteria line and build 
a Criteria value. Separate each element with an 
asterisk and enclose each Criteria value in quotes) 


INITIATE STMT2 
(STMT2 = ' SLCRITERIA ') 


DO for each Criteria line 
IF SA(A) NE BLANK or SA(B) NE BLANK or 
SA(C) NE BLANK or SACD) NE BLANK or 
SA(E) NE BLANK or SA(F) NE BLANK or 
SA(G) NE BLANK 
THEN - include in STMT2 (remove imbedded blanks) 
(STMT2 = STMT2//$QM//SA(A)//'*'//SA(B)//'*! 
SA(C)//'*"//8A(D)//"*'//$A(E)//'*"//8A(F)// 
"*'//8A(G)//$QM) 
(STMT2 = SEAB (STMT2) 
endif; 


INCREASE array values for next line 
=A+t 
E + 


++ 


= 7, C=C+7, D=D + 7, 
E = 7, G=G+/7 
enddo; 


EXECUTE complete statement for Action A, AS, or C 
(using statements formed in ACASE, ASCASE, or 
CCASE with criteria value formed in ADDCASE) 


(&STMT &STMT2) 
endproc ADDCASE 
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DEC CCASE 
BLANK value ' ' 
STMT temporary buffer area 
$A(3) (array containing Access Segment) 
SA(4) (array containing Text) 


enddec CCASE 
PROC CCASE 


START with Access Segment and build a change statement 
(STMT = ‘CHANGE '//$A(3)//$QM//$A(3)//$QM) 


IF SA(4) NE BLANK 
THEN - (continue statement to include Text) 


(STMT = STMT//' SLTEXT TO '//$QM//$A(4)//$QM) 
endif; 


EXTEND STMT to contain beginning of Criteria 
(STMT = STMT//' SLCRITERIA TO ') 
endproc CCASE 


DEC DCASE 
BLANK value ' ' 
STMT temporary buffer area 
$A(3) array containing access segment 


enddec DCASE 
PROC DCASE 
START with Access Segment and build a delete statement 
(STMT = 'DELETE '//$A(3)//S8QM//$A(3)//$QM 
//' SLCRITERIA ') 


EXECUTE &STMT 
endproc DCASE 


DEC RCASE 
Area value 5 
$A(3) array containing Access Segment 
TEXT temporary area for SLTEXT value 
CRITERIA temporary area for SLCRITERIA value 
5D temporary area for SD value 
OCCE temporary area for OCCE value 
SCH temporary area for SCH value 
GRFM temporary area for GRFM value 
GRTO temporary area for GRTO value 
SCCE temporary area for SCCE value 


ORGCODE temporary area for ORGCODE value 
enddec RCASE 


PROC RCASE 


(Execute ACQUIRE statement for Text and Criteria 
for Access Segment on menu) 
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(FOR &($A(3) '&($A(3)' ACQUIRE) 


GFAV SLTEXT 
TEXT = SW 
VOPRINT (*14,TEXT) 


DO for all Criteria in Access Segment SELECTION file 
GET SLCRITERIA (using GFAV and GNAV) 
CRITERIA = $W 
SD = SSBF(CRITERIA,0,1,‘'*') 
OCCE = $SBF(CRITERIA,1,1,'*') 
SCH = SSBF(CRITERIA,2,1,'*') 


GRFM = $SBF(CRITERIA,3,1,'*') 

GRTO = $SBF(CRITERIA,4,1,'*') 

SCCE = $SBF(CRITERIA,5,1,'*') 
tat 


ORGCODE = $SBF(CRITERIA,6,1,'*') 


VOPRINT ('*I//SALF(area)//','//SD) 
area = area + 1 
VOPRINT ('*I//SALF(area)//','//OCCE) 
area = area + 1 
VOPRINT ('*I//SALF(area)//','//SCH) 
area = area + 1 
VOPRINT ('*1I//SALF(area)//','//GRFM) 
area = area + 1 
VOPRINT ('*I//SALF(area)//','//GRTO) 
area = area + l 
VOPRINT ('*I//SALF(area)//','//SCCE) 
area = area + l 
VOPRINT ('*I//SALF(area)//','//ORGCODE) 
area = area + 1 
enddo; 
endproc RCASE 


DEC EXIT-FOR-RESTART 


$A(2) array containing Action 

$A(3) array containing Access Segment 
SA(4) array containing Text 

$A(5-109) arrays containing Criteria data 
BLANK value ' 


enddec EXIT-FOR-RESTART 
PROC EXIT-FOR-RESTART 


IF $A(2) EQ BLANK or $A(2) NE 'A' or SA(2) NE 'C' or 
$A(2) NE 'D' or $A(2) NE 'R' or $A(2) NE 'X' 
or $A(2) NE '‘AS' 
THEN - RELOCATE cursor to Action (*RL2) 
ELSE 
IF $A(3) EQ BLANK 
THEN - RELOCATE cursor to Access Segment (*RL3) 
ELSE 
IF SELECTION = 'NO' 
THEN - RELOCATE cursor to first Criteria (*RL5) 
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ELSE 
IF $A(2) EQ 'A' and $A(4) EQ BLANK 
THEN - RELOCATE cursor to Text (*RL4) 
endif; 

endif; 

endif; 
endif; 
endproc EXIT-FOR-RESTART 


PROC EXIT-FOR-MORE 


VOPRINT '*c' clears menu 

VOPRINT '*I1,E PRCAESTB' establishes value in $A(1) 
VOPRINT '*+B' big buffer 

VOPRINT '*RL2' relocate cursor to $A(2) 


endproc EXIT-FOR-MORE 


PROC EXIT-FOR-NOMORE 
VOPRINT ‘*-F' exit format mode 
VOPRINT '‘*c' clear entire screen 
endproc EXIT-FOR-NOMORE 


endproc PRCAESTB 


4.3.3 PRCAUPDT - COMPONENT ACCESS UPDATE 


45.33.3'6 1 PURPOSE 


This BATCHGIM II program is designed to gather all INTERFACE changes 
that will affect PRIM data access. HRS2 INTERFACE changes that would 
affect PRIM would be changes to SSNOR, SD, ORGCODE, SCHEDULE, GRADE, 
SUBCAT CODE, and/or OCCUPATIONAL SERIES CODE as well as any other data 
that may be required. See flow diagram in Figure 8 of the Appendix. 


4.3.3.2 GENERAL INFORMATION 


Proc Name : PRCAUPDT 

Language Used: PLI (BATCHGIM IT) 

Initiated By : Production Division - DBCC 

Frequency Of 

Execution : Will be done nightly as part of the 
HRS2/PRIM Interface. 


Input : ACCESSCTL file (DLID) 
HRS2 INTERFACE file (all data) 


Output : Extract disk file with the required HRS2 
INTERFACE data. 
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DSN= 


4.3.3.3 FUNCTIONAL DESCRIPTION 


This program will extract changes made to PERSIGN data in the HRS2 
Data Base that also apply to PRIM. As updates are made to the HRS2 
PERSIGN data, entries are made in two other files (ACCESSCTL and 
INTERFACE). The ACCESSCTL file is merely an access file and is used 
by all external data bases receiving PERSIGN data from HRS2. The 
INTERFACE file contains the actual from/to change that was made during 
the nightly update. 


The PRCAUPDT program will scan the ACCESSCTL file in the HRS2 
Data Base for those records with a value in ACCPRIM. The DL/ID of 
these records will be retained by the program. After a complete scan 
of the ACCESSCTL file, the retained DL/ID's will be used to retrieve 
data from the HRS2 INTERFACE file. This data will be written to disk 
and will be used on the PRIM Data Base by the PRCHGLOAD procedure to 
update the PRIM PERSIGN or PRIMSEP file and the PRIM INTERFACE file. 
The final step of the PRCAUPDT program will delete the ACCPRIM values 
from the ACCESSCTL file to avoid redundant data moves. 


4.3.3.4 INPUT 


Input to this program will be all data from the HRS2 INTERFACE Data 
file. 


4.3.3.5 OUTPUT 


The data extracted by this program will be placed on a disk. The disk 
will contain the DL/ID of the HRS2 INTERFACE record and all of the 
INTERFACE elements. 


4.3.3.6 GENERAL PROGRAM CONSIDERATIONS 


A BATCHGIM II program used to extract the INTERFACE data from HRS2 to 
a disk. BATCHGIM II is being used in order to be consistent with oth- 
er systems using HRS2 INTERFACE data. 


When an external system wants to access HRS2 INTERFACE data it 
must first access the ACCESSCTL file to know which INTERFACE record 
have not already been seen. The ACCESSCTL file in HRS2 uses the same 
DL/ID values as INTERFACE file and contains flags for each system In- 
terfacing with HRS2 requiring INTERFACE data. PRIM flags will be in 
the ACCPRIM field. Once PRIM accesses an INTERFACE record, the access 
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flag must be removed from the ACCESSCTL file to show that INTERFACE 
record has been reviewed and is no longer needed by PRIM. 


4.3.3.7 DETAILED PROGRAM SPECIFICATIONS 


DEC PRCAUPDT 


ACCESSCTL 
ACCPRIM access flag 
SA single dimensional array 
INTERFACE data file 
LVL value 1 
STMT temporary buffer area 


enddec PRCAUPDT 

PROC PRCAUPDT 
ACCESS HRS2 Data Base 
ORDER ACCESSCTL 


DO for all ACCESSCTL records 
(Execute ACQUIRE statement for ACCESSCTL 
records with a value in ACCPRIM) 
(FOR ACCESSCTL WITH PRESENT ACCPRIM ACQUIRE) 


$A = ACCESSCTL (SW) (load into next available array) 
enddo; 


IF no records found with present ACCPRIM 
THEN - print message that no records were found to 
move to PRIM 
ELSE 
(build extract statement to include all filled arrays) 
DO for all filled arrays 
IF SA(LVL) NE $AM 
THEN - INCLUDE in Extract statement) 
(STMT = STMT//$QM//$A(LVL)//$QM) 
endif; 
LVL = LVL + 1 
enddo; 
IF STMT NE BLANK 
THEN - (execute statement to place data on disk) 
SDISK, SDSN=G3P.A3176600..... »SVOL=LOCATE . 
FOR INTERFACE &STMT EXTRACT 
- (delete ACCPRIM flags from ACCESSCTL file for 
all filled arrays) 
FOR ACCESSCTL &STMT DELETE ACCPRIM 
- PRINT message notifying of successful completion 
and files are ready for load to PRIM 
endif; 


endproc PRCAUPDT 
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4.3.4 | PRCHGLOAD - COMPONENT ACCESS CHANGES 


4.3.4.1 PURPOSE 


This procedure is designed to use the output from the PRCAUPDT program 
to make updates to the PRIM PERSIGN or PRIMSEP file, update the Access 
INDEX files through XBRIDGES, and make an entry in the PRIM INTERINDX 
and INTERFACE files. See flow diagram in Figure 8 of the Appendix. 


4.3.4.2 GENERAL INFORMATION 


Proc Name : PRCHGLOAD 

Language Used: GIM POL 

Initiated By : Production Division - DBCC 
Frequency Of 


Execution : Will be done nightly as part of the HRS2/PRIM 
Interface. 
Input : Disk produced by PRCAUPDT. 
DSN= : 
Output : Updates will be made to the PRIM PERSIGN, 


PRIMSEP, INDEX files (SDINDX,ORGINDX,SCCEINDX, 
OCGCEINDX,SSDINDX , SORGINDX, SSCCEINDX, 
SOCCEINDX), INTERINDX, and 

PRIM INTERFACE. 


4.3.4.3 FUNCTIONAL DESCRIPTION 


The PRCHGLOAD procedure uses the disk file created by the PRCAUPDT 
procedure. The disk contains updates made to PERSIGN data in HRS2 
which pertain to PRIM, as well as, data which will be required for the 
procedure to accurately analyze the updates. These records are used 
to build an update statement against the PRIM PERSIGN or PRIMSEP 
files, make an entry in the PRIM INTERINDX file and load the INTERFACE 
records into the PRIM INTERFACE file. When updates are made to the 
PRIM PERSIGN file XBRIDGES are evoked which cause updates to INDEX 
files. These INDEX files are used by the PRCRTLINK procedure to es- 
tablish daily links for Components at Signon time. 


4.3.4.4 INPUT 


No menu will be required for this procedure. The following statement 
will initiate the procedure: E PRCHGLOAD 
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4.3.4.5 OUTPUT 


The output from the PRCHGLOAD procedures will be determined by the 
following specifications: 


DOWHILE the INTERFACE data is read from the disk: 
~ Perform unique processing for the ZZ actions. (TBR) 


If the record contains an SSNOR change (both segments of 
IFCSIGN are different and the first segment of IFCSIGN 
NE $$$$$$$$$) 
then - change PERSIGN record 
- change SSNOR in SEGACCESS file (SYSMAN2+C) (TBR Release 2) 
endif; 
If record contains PRIM PERSIGN updates 
then - update PERSIGN record (which evokes XBRIDGING and updates 
INDEX files where applicable. 
- add record to PRIM INTERINDX with INPURGE (RUNDATE + 30). 
endif; 


If the record contains CEILING 'X' (separated employee) 
(IFCCEIL newside EQ 'X' oldside NE 'X') 
then - copy PRIM PERSIGN record to PRIMSEP 

- add SD, OCCE, SCCE, ORG separately to PRIMSEP 
(to evoke XBRIDGING and update INDEX files where 
applicable). 

- add reason for separation from INTERFACE (IFISEPCODE) 
to PRIMSEPCODE, separation date (IFCDOA(newside)) to 
PRIMSEPDTE. 

- add record to PRIM INTERINDX with INPURGE (RUNDATE + 30). 

endif; 


If the record contains CEILING 'X' or 'G' (updates to separated 
record) 
then - update PRIMSEP RECORD 
~ add record to PRIM INTERINDX with INPURGE (RUNDATE + 30). 
endif; 


If the record contains an old CEILING 'X' and new CEILING 
NE 'X' or 'G' (cancellation of an immediate separation) 
then - add record to PRIM PERSIGN 
- add record to PRIM INTERINDX with INPURGE (RUNDATE + 30). 
endif; 


enddowhile; 
If all updates are completed 
then - load all INTERFACE records into the PRIM 


INTERFACE file. 
endif; 
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4.3.4.6 GENERAL PROGRAM CONSIDERATIONS 


Using INTERFACE data placed on a disk by the PRCAUPDT procedure, this 
procedure must analyze each INTERFACE field, pertinent to PERSIGN, and 
make the appropriate changes to the PERSIGN or PRIMSEP file om PRIM. 


The process order will be guaranteed by doing an ORDER of the 
ACCESSCTL file before acquiring any records from it. The ACCESSCTL 
file is a file on HRS2 used to show which records have been accessed 
or have not been accessed by a system interfacing with HRS2. 


Changes to some PRIM PERSIGN fields will envoke XBRIDGES and up- 
date INDEX files as noted below: 


PERSD SDINDX 

PERORGCODE ORGINDX 
PEROCCE OCCEINDX 
PERSCCE SCCEINDX 


Changes to some PRIMSEP fields will envoke XBRIDGES and update 
INDEX files as noted below: 


PERSD SSDINDX 

PERORGCODE SORGINDX 
PEROCCE SOCCEINDX 
PERSCCE SSCCEINDX 


The HRS2 INTERFACE record will be added to the PRIM INTERFACE 
file, an entry with an INPURGE date will be added to INTERINDX, and an 
update date will be added to SYSER to notify components of the most 
recent HRS2/PRIM update. 


4.3.4.7 DETAILED PROGRAM SPECICATIONS 
DEC PRCHGLOAD 
CSIGN Input value from disk, shows SSNOR change 
CCEIL Input value from disk, 
Shows record moving from Active to Separated 

NEWREC value received from BLDSTMT (CCEIL) 
enddec PRCHGLOAD 
PROC PRCHGLOAD 

RUN SETLVL 

DO FOR ALL INTERFACE records on Disk 

RUN READREC 


CSIGN NE BLANK (SSNOR CHANGE) 
THEN RUN SSNCHG 
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endif; 


$SBF(CCEIL,1,1,'*') EQ 'X' (new side) 
THEN RUN NEWSEP 
endif; 


RUN BLDSTMT 


NEWREC = 'YES' (NEW EOD) 
THEN RUN ADDNEW 
endif; 


RUN ADDREC 
enddo; 


PROC SETLVL 


FILE RECORD 

LVLO1 INTER,CS 
LVLO2 CACTREQ,C,5 
LVLO2 CAFF,C,7 
LVLO2 CAFFTXTL,C,49 
LVLO2 CANF,C,5 
LVLO2 CANO,C,?7 
LVLO2 CANTYST,C,3 
LVLO2 CAORG,C,9 
LVLO2 CAPNTE,C,13 
LVLO2 CASALARY,C,15 
LVLO2 CCEIL,C,3 
LVLO2 CCIT,C,3 
LVLO2 CCOVDPT,C,7 
LVLO2 CCOVDPTXT,C,17 
LVLO2 CCOVDT,C,13 
LVLO2 CCOVORG,C,5 
LVLO2 CCOVORGTXT,C,25 
LVLO2 CCSEOD,C,13 
LVLO2 CDETC,C,5 
LVLO2 CDETONTE,C,13 
LVLO2 CDETTXTS,C,25 
LVLO2 CDEVC,C,5 
LVLO2 CDEVDI,C,13 
LVLO2 CDEVLAST,C,13 
LVLO2 CDEVNTE,C,13 
LVLO2 CDOA,C,13 
LVLO2 CDOB,C,13 
LVLO2 CDOG,C,13 
LVLO2 CETP,C,13 
LVLO2 CFLSA,C,3 
LVLO2 CFLSADT,C,13 
LVLO2 CGR,C,5 

LVLO2 CGRPRT1,C,11 
LVLO2 CGSDTXTS,C,11 
LVLO2 CHQTXTS,C,9 
LVLO2 CHRS,C,? 
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LVLO2 CLCD,C,13 
LVLO2 CLEI,C,13 
LVLO2 CNAMEOR,C,49 
LVLO2 CNAMEOR3,C,7 
LVLO2 CNOA,C,5 
LVLO2 CNSCA,C,3 
LVLO2 CNSCADT,C,13 
LVLO2 CNTY,C,3 
LVLO2 COCCE,C,15 
LVL02 COCCETXT,C,41 
LVLO2 COCCFAM,C,5 
LVLO2 COCCSUF,C,11 
LVLO2 CONAMEOR3,C,7 
LVLO2 CORGCODE,C,39 
LVLO2 CORGDTIN,C,13 
LVLO2 COVERLAP,C,19 
LVLO2 COVLAPING,C,19 
LVLO2 COVNTE,C,13 
LVLO2 CPAYB,C,5 
LVLO2 CPAYDT,C,13 
LVLO2 CPAYDTC,C,3 
LVLO2 CPDATE,C,13 
LVLO2 CPGVT,C,3 
LVLO2 CPOSNO,C,11 
LVLO2 CPRA,C,3 
LVLO2 CPRADI,C,13 
LVLO2. CPRANTE,C,13 
LVLO2 CPRMNTE,C,13 
LVLO2 CPROJNO,C,13 
LVLO2 CPWGI,C,13 
LVLO2 CRACE,C,3 
LVLO2 CRESV1,C,11 
LVLO2 CRESV2,C,11 
LVLO2 CRESV3,C,11 
LVLO2 CRESV4,C,21 
LVLO2 CRESV5,C,21 
LVLO2 CRETDI,C,13 
LVL02 CRETNTE,C,13 
LVLO2 CRTMT,C,3 
LVLO2 CRTMTTXT,C,13 
LVLO2 CSALARY,C,15 
LVLO2 CSCCE,C,3 
LVLO2 CSCCESK,C,3 
LVLO2 CSCCETXTS,C,9 
LVLO2 CSCD,C,13 
LVLO2 CSCH,C,9 
LVLO2 CSCHGRSK1,C,5 
LVLO2 CSCHGRSK2,C,5 
LVLO2 CSCHPRT1,C,9 
LVLO2 CSD,C,7 

LVLO2 CSECCL,C,3 
LVLO2 CSEQ,C,7 
LVLO2 CSERIAL,C,15 
LVLO2 CSEX,C,3 


Approved Fare lease ONS QRi0e 7 CIA RDES8-00893R000200060008;1 


LVLO2 
LVLO2 
LVLO2 
LVLO2 
LVLO2 
LVLO2 
LVLO2 
LVLO2 
LVLO02 
LVLO2 
LVLO2 
LVLO2 
LVLO2 
LVLO2 
LVLO2 
LVLO2 
LVLO2 
LVLO2 
LVLO2 
LVLO2 
LVLO2 
LVLO2 
LVLO2 
LVLO2 
LVLO2 
LVLO2 
LVLO2 
LVLO2 
LVLO2 
LVLO2 
LVLO2 
LVLO2 
LVLO2 
LVLO2 
LVLO2 
LVLO2 
LVLO2 
LVLO2 
LVLO2 
LVLO2 
LVLO2 
LVLO2 
LVLO2 
LVLO2 
LVLO2 
LVLO2 
LVLO2 
LVLO2 
LVLO2 
LVLO2 
LVLO2 
LVLO2 
LVLO2 
LVLO2 
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CSFN,C,15 
CSIGN,C,19 
CSREF,C,5 
CSSNOTH,C, 19 
CSTAN,C,13 
CSTANAREA,C,5 
CSTANTXT,C,51 
CSTEP2,C,5 
CSTIND,C,3 
CSTRCTR,C,5 
CTOA,C,5 
CTOUR,C,3 
CVET,C,3 
CWGIE,C,3 
GCUTOFFDT,C, 6 
GPROJUPDTD ,C, 1 
TACTREQ,C,2 
IAFF ,C,3 
IAL,C,2 
IANO,C,3 
TANPRPAY ,C, 2 
IANTYSAL,C,5 
IANTYST,C,1 
IAORG,C,4 
IAPNTE ,C,6 
ICCANO,C,3 
ICCNOA,C,2 
ICCTOA,C,12 
PCLT 6.1 
ICSEOD,C,6 
ICTPCLASS,C,3 
IDETC,C,2 
IDETONTE,C,6 
IDEVC,C,2 
IDEVDI,C,6 
IDEVLAST,C,6 
IDEVNTE,C,6 
IDOA,C,6 
IDOB,C,6 
IDOG,C,6 

IETP ,C,6 
IFLSA,C,1 
IFLSADT,C,6 
IGR,C,2 
THQ,C,1 
THRS,C,3 
LINDT,C,6 
IINORIGDT,C,6 
ILCD,C,6 
ILEI,C,6 
ILWOPSTRT,C,4 
INAMEOR,C,24 
INAMEOR3,C,3 
INCPP ,C,2 
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INEWIDN,C,9 
INSCA,C,1 
INSCADT,C,6 
INTY,C,1 
IOCCE,C,7 
IOCCSUF ,C,5 
IOPERATOR,C, 10 
IORGCODE ,C,09 
IORGDTIN,C,6 
IOUTSK,C,3 
IOVERLAP ,C,9 
IOVNTE,C,6 
IOVRD,C,2 
IPAYB,C,2 
IPGVT,C,1 
IPOSNO,C,5 
IPRA,C,1 
IPRADI,C,6 
IPRANTE ,C,6 
IPRMNTE ,C,6 
IPROJNO,C,6 
IPWGI,C,6 
IRACE,C,1 
IREMC ,C,2 
IREMNS ,C, 69 
IRESV1,C,5 
IRESV2,C,5 
IRESV3,C,5 
IRESV4,C, 10 
IRESV5 ,C,10 
IRETDI,C,6 
IRETNTE ,C,6 
IRTMT,C,1 
ISALARY ,C,7 
ISCCE,C,1 
ISCD,C,6 
ISCH,C,4 
IsD,C,3 
ISECEL{ C1 
ISEPCODE ,C, 10 
ISEPCOMP,C,8 
ISERIAL,C,7 
ISEX,C,1 
ISFN,C,7 
ISIGN,C,9 
ISREF,C,2 
ISSNOTH,C,9 
ISTAN,C,6 
ISTEP2,C,2 
ISUSPEN,C,2 
ITIDN,C,9 
ITNAME ,C, 24 
ITOA,C,12 
ITOASK,C,3 


Approved Fon Release 4005/08/02 5 GAR RRS P0893R000200060006-1 


LVLO2 
LVLO2 
LVLO2 
LVLO2 
LVLO2 
LVLO02 
LVLO2 
LVLO2 
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LVLO2 
LVLO2 
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LVLO2 
LVLO2 
LVLO2 
LVLO2 
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LVLO2 
LVLO2 
LVLO2 
LVLO2 
endproc 
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ITOUR,C,1 
ITRANS ,C, 10 
IVET,C,1 
IWGIE,C,1 
SAFF,C,3 
SANF ,C,2 
SANO,C,3 
SAPNTE ,C,6 
SCETE.G cl 
SDEVC ,C,2 
SDOB ,C,6 
SDOG,C,6 
SGR,C,2 
SLEI,C,6 
SNAMEOR,C, 24 
SPAYB,C,2 
SPGVT,C,1 
SPROJNO,C,6 
SRTMT,C,1 
SSALARY,C,7 
SSCD,C,6 
SSCH,C,4 
SSERIAL,C,7 
SSFN,C,7 
SSTEP2,C,2 
STOUR,C,1 
INTERFACE ,C, 22 

SETLVL 


DEC READREC 


SDSN 
$VOL 


value = permanent data set name 
value = locate 


enddec READREC 


PROC READREC 


OPEN 


RECORD, INPUT , SDSN=DSN, SVOL='LOCATE' , SDISK='DISK' 


DO for INPUT record 
GET Corresponding PERSIGN record 
FOR PERSIGN '&ISIGN' ACQUIRE PERSIGN 


IF record found in PERSIGN 


THEN 


FILE = 'PERSIGN' 


endif; 


GET Corresponding PRIMSEP record 
FOR PRIMSEP '&ISIGN' ACQUIRE PRIMSEP 


IF record found in PRIMSEP 


THEN FILE = 'PRIMSEP' 
ELSE FILE = 'PERSIGN' 
endif; 

enddo; 
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endproc READREC 


DEG BLDSTMT 


BLANK value ' ' 
SA array area containing fields to be added 
$¢ array area containing fields to be changed 
$D array area containing fields to be deleted 
SE array area containing add to INTERFACE 
STMT value ' '' 
area contains SEPCODE and SEPDTE for PRIMSEP ONLY 
OLD old value of IFC item 
NEW new value of IFC item 
NEWREC value 'NO' - flags new EOD - see CCEIL 


enddec BLDSTMT 
PROC BLDSTMT 
use WHEN operator for this PROC 


IF CACTREQ NE BLANK 

THEN OLD=SSBF(CACTREQ,0,1, '%*') 
NEW=$SBF (CACTREQ,1,1,'*') 
$E=' CACTREQ '//$QM//CACTREQ//$QM 


$SBF(OLD,0,1) NE '$' and $SBF(NEW,0,1) NE ‘'S' 
THEN $C=' PERACTREQ '//$QM//OLD//$QM//' TO ' 
//$QM//NEW//$QM 


endif; 


IF S$SBF(OLD,0,1) EQ 'Ss' 
THEN SA=' PERACTREQ '//SQM//NEW//$QM 
endif; 


IF $SBF(NEW,0,1) EQ 'S$' 
THEN $D=' PERACTREQ '//$QM//OLD//$QM 
endif; 

endif; 


IF CAFF NE BLANK 
THEN 
OLD=$SBF(CAFF,0,1,'*') 
NEW=SSBF(CAFF,1,1,'*') 
SE=' CAFF '//S$QM//CAFF//$QM 


IF $SBF(OLD,0,1) NE 'S' and $SBF(NEW,0,1) NE 'S' 
THEN $C=' PERAFF TO '//$QM//NEW//SQM 
endif; 


IF $SBF(OLD,0,1) EQ ' 
THEN $A=' PERAFF '//$QM//NEW//SQM 
endif; 


IF SSBF(NEW,0,1) EQ '$' (only occurs if ITOA = '2ZZ') 
THEN §D=' PERAFF '//$QM//OLD//$QM 
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endif; 
endif; 


IF CAFFTXTL NE BLANK 
THEN 
OLD=$SBF (CAFFTXTL,0,1, '*") 
NEW=SSBF (CAFFTXTL, 1,1, '*') 
SE=' CAFFTXTL '//$QM//CAFFTXTL/ /$QM 


IF $SBF(OLD,0,1) NE 'S$' and $SBF(NEW,0,1) NE 'S' 
THEN $C=' PERAFFTXTL TO '//SQM//NEW//$QM 
endif; 


IF $SBF(OLD,0,1) EQ '$' 
THEN SA=' PERAFFTXTL '//SQM//NEW//SQM 
endif; 


IF $SBF(NEW,0,1) EQ 'S$' (only occurs if ITOA = 'ZZ"') 
THEN $D=' PERAFFTXTL '//$QM//OLD//$QM 
endif; 

endif; 


IF CANF NE BLANK 

THEN 
OLD=$SBF (CANF,0,1,'*') 
NEW=SSBF (CANF,1,1,'*"') 
SE=' CANF '//$QM//CANF//$QM 


IF $SBF(OLD,0,1) NE '$' and SSBF(NEW,0,1) NE 'S' 
THEN $C=' PERANF TO '//SQM//NEW//SQM 
endif; 


IF SSBF(OLD,0,1) EQ '$' 
THEN SA=' PERANF '//$QM//NEW//SQM 
endif; 


IF $SBF(NEW,0,1) EQ 'S' 
THEN SD=' PERANF '//SQM//OLD//$QM 
endif; 

endif; 


IF CANO NE BLANK 

THEN 
OLD=SSBF(CANO,0,1,'*') 
NEW=SSBF(CANO,1,1, '*') 
SE=' CANO '//$QM//CANO//SQM 


IF SSBF(OLD,0,1) NE 'S' and SSBF(NEW,0,1) NE 'S' 
THEN $C=' PERANO TO '//SQM//NEW//$QM 
endif; 


IF $SBF(OLD,0,1) EQ '$' 


THEN SA=' PERANO '//SQM//NEW//SQM 
endif; 
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IF $SBF(NEW,0,1) EQ '$' (only occurs if ITOA = 'Z2') 
THEN $D=' PERANO '//SQM//OLD//S$QM 
endif; 

endif; 


IF CANTYST NE BLANK 

THEN 
OLD=S$SBF(CANTYST,0,1,'*') 
NEW=SSBF (CANTYST,1,1,'*') 
SE=' CANTYST '//SQM//CANTYST//$QM 


IF $SBF(OLD,0,1) NE '$' and $SBF(NEW,0,1) NE 'S$' 
THEN $C=' PERANTYST TO "//SQM//NEW//SQM 
endif; 


IF $SBF(OLD,0,1) EQ '$' 
THEN $A=' PERANTYST '//SQM//NEW//SQM 
endif; 


IF $SBF(NEW,0,1) EQ '$' 
THEN SD=' PERANTYST '//SQM//OLD//$QM 
endif; 

endif; 


IF CAORG NE BLANK 

THEN 
OLD=$SBF(CAORG,0,1,'*"') 
NEW=SSBF(CAORG,1,1,'*') 
SE=' CAORG '//S$QM//CAORG//$QM 


IF $SBF(OLD,0,1) NE '$' and $SBF(NEW,0,1) NE 'S' 
THEN $C=' PERAORG TO '//$QM//NEW//SQM 
endif; 


IF $SBF(OLD,0,1) EQ 'S' 
THEN $A=' PERAORG '//SQM//NEW//S$QM 
endif; 


IF $SBF(NEW,0,1) EQ 'S' (only occurs if ITOA = 'ZZ') 
THEN $D=' PERAORG '//$QM//OLD//$QM 
endif; 

endif; 


IF CAPNTE NE BLANK 

THEN 
OLD=$SBF(CAPNTE,0,1,'*') 
NEW=SSBF(CAPNTE,1,1, '*') 
SE=' CAPNTE '//$QM//CAPNTE//$QM 


IF $SBF(OLD,0,1) NE '$' and $SBF(NEW,0,1) NE '$' 


THEN $C=' PERAPNTE TO '//$QM//NEW//SQM 
endif; 
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IF $SBF(OLD,0,1) EQ 'S' 
THEN SA=' PERAPNTE '//SQM//NEW//$QM 
endif; 


IF SSBF(NEW,0,1) EQ 'S$' 
THEN $D=' PERAPNTE '//$QM//OLD//$QM 
endif; 

endif; 


IF CASALARY NE BLANK 
THEN 
OLD=SSBF (CASALARY,0,1,'*') 
NEW=8SBF (CASALARY,1,1,'*') 
SE=' CASALARY '//$QM//CASALARY//$QM 


IF $SBF(OLD,0,1) NE '$' and $SBF(NEW,0,1) NE ‘$' 
THEN $C=' PERASALARY TO '//$QM//NEW//$QM 
endif; 


IF SSBF(OLD,0,1) EQ '$' 
THEN $A=' PERASALARY '//$QM//NEW//$QM 
endif; 


IF SSBF(NEW,0,1) EQ '$' 
THEN $D=' PERASALARY '//$QM//OLD//$QM 
endif; 

endif; 


IF CCEIL NE BLANK 

THEN 
OLD=$SBF(CCEIL,0,1,'*') 
NEW=SSBF(CCEIL,1,1,'*') 
SE=' CCEIL '//$QM//CCEIL//$QM 


IF $SBF(OLD,0,1) NE '$' and $SBF(NEW,0,1) NE 'S' 
and NEW NE 'X' and NEW NE 'G' 

THEN $C=' PERCEIL TO '//SQM//NEW//SQM 

endif; 


IF $SBF(OLD,0,1) EQ '$' 

THEN SA=' PERCEIL '//S$QM//NEW//$QM 
NEWREC = 'YES' (new EOD) 

endif; 


IF SSBF(NEW,0,1) EQ '$' (only occurs if ITOA = 'Z2Z"') 
THEN $D=' PERCEIL '//$QM//OLD//$QM 
endif; 

endif; 


IF CCIT NE BLANK 

THEN 
OLD=SSBF(CCIT,0,1,'*"') 
NEW=SSBF(CCIT,1,1,'*') 
SE=' CCIT '//$QM//CCIT//$QM 
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IF $SBF(OLD,0,1) NE '$' and $SBF(NEW,0,1) NE 'S' 
THEN $C=' PERCIT TO '//SQM//NEW//SQM 
endif; 


IF $SBF(OLD,0,1) EQ '$' 
THEN $A=' PERCIT '//$QM//NEW//$QM 
endif; 


IF $SBF(NEW,0,1) EQ 'S' (only occurs if ITOA = '22') 
THEN $D=' PERCIT '//$QM//OLD//$QM 
endif; 

endif; 


IF CCOVDPT NE BLANK 

THEN 
OLD=SSBF(CCOVDPT,0,1,'*') 
NEW=SSBF(CCOVDPT,1,1,'*') 
$SE=' CCOVDPT '//SQM//CCOVDPT//$QM 


IF $SBF(OLD,0,1) NE 'S' and $SBF(NEW,0,1) NE '‘S' 
THEN $C=' PERCOVDPT TO '//$QM//NEW//$QM 
endif; 


IF $SBF(OLD,0,1) EQ 's' 
THEN $A=' PERCOVDPT '//$QM//NEW//$QM 
endif; 


IF SSBF(NEW,0,1) EQ '$' 
THEN $D=' PERCOVDPT '//S$QM//OLD//$QM 
endif; 

endif; 


IF CCOVDPTXT NE BLANK 
THEN 
OLD=$SBF (CCOVDPTXT,0,1,'*') 
NEW=$ SBF (CCOVDPTXT,1,1,'*') 
$SE=' CCOVDPTXT '//$QM//CCOVDPTXT/ /$QM 


IF $SBF(OLD,0,1) NE ‘S$’ and $SBF(NEW,0,1) NE ‘'$' 
THEN $C=' PERCOVDPTXT TO '//$QM//NEW//$QM 
endif; 


IF $SBF(OLD,0,1) EQ '$' 
THEN $A=' PERCOVDPTXT '//SQM//NEW//SQM 
endif; 


IF S$SBF(NEW,0,1) EQ 'S' 
THEN $D=' PERCOVDPTXT '//SQM//OLD//$QM 
endif; 

endif; 


IF CCOVDT NE BLANK 
THEN 
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OLD=$SBF(CCOVDT,0,1,'*') 
NEW=SSBF (CCOVDT,1,1,'*') 
$SE=' CCOVDT '//S$QM//CCOVDT//$QM 


IF $SBF(OLD,0,1) NE '$' and $SBF(NEW,0,1) NE ‘'$' 
THEN $C=' PERCOVDT TO '//S$QM//NEW//$QM 
endif; 


IF $SBF(OLD,0,1) EQ 's' 
THEN $A=' PERCOVDT '//$QM//NEW//SQM 
endif; 


IF $SBF(NEW,0,1) EQ 'S' 
THEN $D=' PERCOVDT "//$QM//OLD/ /$QM 
endif; 

endif; 


IF CCOVORG NE BLANK 

THEN 
OLD=$SBF (CCOVORG,0,1, '*") 
NEW=$SBF (CCOVORG, 1,1, '**') 
SE=' CCOVORG '//$QM//CCOVORG//SQM 


IF $SBF(OLD,0,1) NE '$' and $SBF(NEW,0,1) NE '$' 
THEN $C=' PERCOVORG TO "//SQM//NEW/ /SQM 
endif; 


IF $SBF(OLD,0,1) EQ ‘s' 
THEN $A=' PERCOVORG '//$QM//NEW//SQM 
endif; 


IF $SBF(NEW,0,1) EQ '$' 
THEN $D=' PERCOVORG '//$QM//OLD//$QM 
endif; 

endif; 


IF CCOVORGTXT NE BLANK 
THEN 
OLD=$SBF (CCOVORGTXT,0,1,'*"') 
NEW=$SBF (CCOVORGTXT,1,1,'*') 
$E=' CCOVORGTXT '//SQM//CCOVORGTXT//$QM 


IF $SBF(OLD,0,1) NE '$' and $SBF(NEW,0,1) NE ‘S$' 
THEN $C=' PERCOVORGTXT TO '//SQM//NEW//S$QM 
endif; 


IF $SBF(OLD,0,1) EQ ‘'$' 
THEN SA=' PERCOVORGTXT '//$QM//NEW//$QM 
endif; 


IF $SBF(NEW,0,1) EQ ‘S$’ 
THEN $D=' PERCOVORGTXT '//$QM//OLD//$QM 
endif; 

endif; 
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IF CCSEOD NE BLANK 

THEN 
OLD=SSBF(CCSEOD,0,1,'*') 
NEW=SSBF (CCSEOD,1,1,'*') 
SE=' CCSEOD '//$QM//CCSEOD//$QM 


IF SSBF(OLD,0,1) NE 'S' and SSBF(NEW,0,1) NE 'S' 
THEN $C=' PERCSEOD TO '//$QM//NEW//$QM 
endif; 


IF SSBF(OLD,0,1) EQ 'S' 
THEN $A=' PERCSEOD '//$QM//NEW//$QM 


endif; 


IF $SBF(NEW,0,1) EQ 'S$' (only occurs if ITOA = '22') 
THEN $D=' PERCSEOD '//$QM//OLD//S$QM 
endif; 

endif; 


IF CDETC NE BLANK 

THEN 
OLD=$SBF(CDETC,0,1,'*") 
NEW=SSBF(CDETC,1,1,'*') 
SE=' CDETC '//S$QM//CDETC//$QM 


IF $SBF(OLD,0,1) NE '$' and $SBF(NEW,0,1) NE ‘S' 
THEN $C=' PERDETC TO '//$QM//NEW//$QM 
endif; 


IF SSBF(OLD,0,1) EQ '$' 
THEN $A=' PERDETC '//SQM//NEW//S$QM 
endif; 


IF SSBF(NEW,0,1) EQ 'S' 
THEN $D=' PERDETC '//$QM//OLD//SQM 
endif; 

endif; 


IF CDETONTE NE BLANK 
THEN 
OLD=$SBF (CDETONTE,0,1,'*') 
NEW=SSBF (CDETONTE,1,1,'*') 
SE=' CDETONTE '//$QM//CDETONTE/ /$QM 


IF $SBF(OLD,0,1) NE '$' and SSBF(NEW,0,1) NE 'S' 
THEN $C=' PERDETONTE TO '//S$QM//NEW//SQM 
endif; 


IF $SBF(OLD,0,1) EQ '$' 
THEN SA=' PERDETONTE '//S$QM//NEW//SQM 
endif; 


IF $SBF(NEW,0,1) EQ '$' 
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THEN $D=' PERDETONTE '//$QM//OLD//$QM 
endif; 
endif; 


IF CDETTXTS NE BLANK 
THEN 
OLD=$SBF (CDETTXTS,0,1,'*') 
NEW=$SBF (CDETTXTS ,1,1,'*') 
SE=' CDETTXTS '//$QM//CDETTXTS//$QM 


IF $SBF(OLD,0,1) NE '$' and SSBF(NEW,0,1) NE '$' 
THEN $C=' PERDETTXTS TO '//$QM//NEW//SQM 
endif; 


IF $SBF(OLD,0,1) EQ '$' 
THEN $A4=' PERDETTXTS '//$QM//NEW//8QM 
endif; 


IF $SBF(NEW,0,1) EQ '$' 
THEN $D=' PERDETTXTS '//$QM//OLD//$QM 
endif; 

endif; 


IF CDEVC NE BLANK 

THEN 
OLD=$SBF (CDEVC,0,1, '*') 
NEW=$SBF (CDEVC,1,1,'*') 
$E=' CDEVC '//$QM//CDEVC//$QM 


IF $SBF(OLD,0,1) NE '$' and $SBF(NEW,0,1) NE '$' 
THEN $C=' PERDEVC TO '//S$QM//NEW//SQM 
endif; 


IF $SBF(OLD,0,1) EQ '$' 
THEN $A=' PERDEVC '//SQM//NEW//SQM 
endif; 


IF $SBF(NEW,0,1) EQ '$' 
THEN $D=' PERDEVC "//$QM//OLD//$QM 
endif; 

endif; 


IF CDEVDI NE BLANK 

THEN 
OLD=$SBF(CDEVDI,0,1,'*') 
NEW=SSBF(CDEVDI,1,1,'*') 
$E=' CDEVDI '//$QM//CDEVDI//$QM 
IF $SBF(OLD,0,1) NE '$' and SSBF(NEW,0,1) NE 's' 
THEN $C=' PERDEVDI TO '//SQM//NEW//SQM 
endif; 


IF $SBF(OLD,0,1) EQ '$' 
THEN $A=' PERDEVDI '//$QM//NEW//SQM 
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endif; 


IF $SBF(NEW,0,1) EQ ‘S$’ 
THEN $D=' PERDEVDI '//$QM//OLD//$QM 
endif; 

endif; 


IF CDEVLAST NE BLANK 
THEN 
OLD=$SBF(CDEVLAST,0,1, '*') 
NEW=SSBF (CDEVLAST,1,1, '**') 
$E=' CDEVLAST '//SQM//CDEVLAST//$QM 


IF $SBF(OLD,0,1) NE 'S' and $SBF(NEW,0,1) NE 'S' 
THEN $C=' PERDEVLAST TO '//$QM//NEW//$QM 
endif; 


IF $SBF(OLD,0,1) EQ ‘'$' 
THEN $A=' PERDEVLAST '//$QM//NEW//$QM 
endif; 


IF $SBF(NEW,0,1) EQ '$' 
THEN $D=' PERDEVLAST '//SQM//OLD//$QM 
endif; 

endif; 


IF CDEVNTE NE BLANK 

THEN 
OLD=$SBF(CDEVNTE,0,1,'*') 
NEW=SSBF (CDEVNTE,1,1,'*') 
SE=' CDEVNTE '//$QM//CDEVNTE//$QM 


IF $SBF(OLD,0,1) NE '$' and $SBF(NEW,0,1) NE '$' 
THEN $C=' PERDEVNTE TO '//$QM//NEW//$QM 
endif; 


IF $SBF(OLD,0,1) EQ ‘$' 
THEN SA=' PERDEVNTE '//SQM//NEW//S$QM 
endif; 


IF S$SBF(NEW,0,1) EQ ‘$' 
THEN $D=' PERDEVNTE '//$QM//OLD//$QM 
endif; 

endif; 


IF CDOA NE BLANK 

THEN 
OLD=$SBF(CDOA,0,1, '*') 
NEW=$SBF(CDOA,1,1,'*') 
$SE=' CDOA '//S$QM//CDOA//$QM 


IF $SBF(OLD,0,1) NE '$' and $SBF(NEW,0,1) NE '$' 


THEN $C=' PERDOA TO '//$QM//NEW//$QM 
endif; 
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IF $SBF(OLD,0,1) EQ '$' 
THEN SA=' PERDOA '//$QM//NEW//$QM 
endif; 


IF $SBF(NEW,0,1) EQ '$' (only occurs if ITOA = '22') 
THEN $D=' PERDOA '//$QM//OLD//$QM 
endif; 

endif; 


IF CDOB NE BLANK 

THEN 
OLD=$SBF(CDOB,0,1,'*') 
NEW=$SBF(CDOB,1,1,'*') 
SE=' CDOB '//$QM//CDOB//$QM 


IF $SBF(OLD,0,1) NE 'S' and $SBF(NEW,0,1) NE '‘S' 
THEN $C=' PERDOB TO '//SQM//NEW//$QM 
endif; 


IF $SBF(OLD,0,1) EQ ‘$' 
THEN $A=' PERDOB '//$QM//NEW//$QM 
endif; 


IF $SBF(NEW,0,1) EQ '$' (only occurs if ITOA = "27 
THEN $D=' PERDOB "//$QM//OLD//$QM 
endif; 

endif; 


IF CDOG NE BLANK 

THEN 
OLD=$SBF(CDOG,0,1,'*') 
NEW=SSBF(CDOG,1,1,'*') 
$E=' CDOG '//$QM//CDOG//$QM 


IF $SBF(OLD,0,1) NE '$' and SSBF(NEW,0,1) NE 'S' 
THEN $C=' PERDOG TO '//$QM//NEW//$QM 
endif; 


IF SSBF(OLD,0,1) EQ ‘'$' 
THEN $A=' PERDOG '//SQM//NEW//SQM 
endif; 


IF SSBF(NEW,0,1) EQ ‘'S' 
THEN $D=' PERDOG '//$QM//OLD//$QM 
endif; 

endif; 


IF CETP NE BLANK 

THEN 
OLD=$SBF(CETP,0,1,'*') 
NEW=$SBF(CETP,1,1,'*') 
SE=' CETP '//SQM//CETP//SQM 
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IF $SBF(OLD,0,1) NE 'S' and $SBF(NEW,0,1) NE 'S' 
THEN $C=' PERETP TO '//SQM//NEW//SQM 
endif; 


IF $SBF(OLD,0,1) EQ '$' 
THEN SA=' PERETP '//SQM//NEW//$QM 


endif; 


IF SSBF(NEW,0,1) EQ 'S' 
THEN $D=' PERETP '//$QM//OLD//$QM 
endif; 

endif; 


IF CFLSA NE BLANK 

THEN 
OLD=SSBF(CFLSA,0,1,'*') 
NEW=SSBF(CFLSA,1,1,'*') 
SE=' CFLSA '//$QM//CFLSA//$QM 


IF $SBF(OLD,0,1) NE '$' and $SBF(NEW,0,1) NE '$' 
THEN $C=' PERFLSA TO '//$QM//NEW//SQM 
endif; 


IF $SBF(OLD,0,1) EQ 'S' 
THEN SA=' PERFLSA '//S$QM//NEW//$QM 
endif; 


IF $SBF(NEW,0,1) EQ 'S' 
THEN $D=' PERFLSA '//SQM//OLD//$QM 
endif; 

endif; 


IF CFLSADT NE BLANK 

THEN 
OLD=$SBF (CFLSADT,0,1,'*") 
NEW=SSBF (CFLSADT, 1,1, '*') 
SE=' CFLSADT '//8QM//CFLSADT/ /$QM 


IF $SBF(OLD,0,1) NE '$' and $SBF(NEW,0,1) NE ‘S$' 
THEN $C=' PERFLSADT TO '//S$QM//NEW//SQM 
endif; 


IF $SBF(OLD,0,1) EQ '$' 
THEN SA=' PERFLSADT '//SQM//NEW//SQM 
endif; 


IF $SBF(NEW,0,1) EQ 'S' 
THEN $D=' PERFLSADT '//$QM//OLD//SQM 
endif; 

endif; 


IF CGR NE BLANK 


THEN 
OLD=$SBF(CGR,0,1,'*') 
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NEW=$SBF (CGR, 1,1, '*') 
$E=' CGR '//$QM//CGR//$QM 


IF $SBF(OLD,0,1) NE '$' and SSBF(NEW,0,1) NE '$' 
THEN $C=' PERGR TO '//$QM//NEW//S$QM 
endif; 


IF $SBF(OLD,0,1) EQ 's' 
THEN $A=' PERGR '//S$QM//NEW//S5QM 
endif; 


IF $SBF(NEW,0,1) EQ '$' (only occurs if ITOA = '2ZZ') 
THEN $D=' PERGR '//$QM//OLD//$QM 
endif; 

endif; 


IF CGRPRT1 NE BLANK 

THEN 
OLD=SSBF (CGRPRT1,0,1,'*') 
NEW=SSBF (CGRPRT1,1,1,'*') 
$E=' CGRPRT1 '//$QM//CGRPRT1//$QM 


IF $SBF(OLD,0,1) NE '$' and $SBF(NEW,0,1) NE 'S' 
THEN $C=' PERGRPRT1 TO '//SQM//NEW//SQM 
endif; 


IF $SBF(OLD,0,1) EQ '$' 
THEN SA=' PERGRPRT1 "//SQM//NEW/ / SQM 
endif; 


IF S$SBF(NEW,0,1) EQ 'S' 
THEN $D=' PERGRPRT1 '//$QM//OLD//SQM 
endif; 

endif; 


IF CGSDTXTS NE BLANK 
THEN 
OLD=$SBF (CGSDTXTS ,0,1,'*') 
NEW=SSBF (CGSDTXTS,1,1,'*') 
$E=' CGSDTXTS '//$QM//CGSDTXTS//$QM 


IF $SBF(OLD,0,1) NE '$' and $SBF(NEW,0,1) NE 'S' 
THEN $C=' PERGSDTXTS TO '//$QM//NEW//SQM 
endif; 


IF $SBF(OLD,0,1) EQ 'S$' 
THEN SA=' PERGSDTXTS '//$QM//NEW//$QM 
endif; 


IF $SBF(NEW,0,1) EQ '$' (only occurs if ITOA = 'ZZ') 
THEN $D=' PERGSDTXTS '//SQM//OLD//$QM 
endif; 

endif; 
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IF CHQTXTS NE BLANK 

THEN 
OLD=$SBF (CHQTXTS ,0,1,'*') 
NEW=SSBF (CHQTXTS,1,1,'*') 
SE=' CHQTXTS '//SQM//CHQTXTS//$QM 


IF $SBF(OLD,0,1) NE 'S' and SSBF(NEW,0,1) NE 'S$' 
THEN $C=' PERHQTXTS TO '//S$QM//NEW//SQM 
endif; 


IF $SBF(OLD,0,1) EQ 'S' 
THEN SA=' PERHQTXTS '//$QM//NEW//SQM 
endif; 


IF $SBF(NEW,0,1) EQ '$' (only occurs if ITOA = '22') 
THEN $D=' PERHQTXTS '//$QM//OLD//$QM 
endif; 

endif; 


IF CHRS NE BLANK 

THEN 
OLD=$SBF(CHRS,0,1,'*') 
NEW=SSBF(CHRS,1,1,'*') 
$SE=' CHRS '//SQM//CHRS//$QM 


IF $SBF(OLD,0,1) NE 'S' and S$SBF(NEW,0,1) NE 'S' 
THEN $C=' PERHRS TO '//SQM//NEW//SQM 
endif; 


IF SSBF(OLD,0,1) EQ 'S$' 
THEN SA=' PERHRS '//$QM//NEW//$QM 
endif; 


IF SSBF(NEW,0,1) EQ '$' 
THEN $D=' PERHRS '//$QM//OLD//$QM 
endif; 

endif; 


IF CLCD NE BLANK 

THEN 
OLD=$SBF(CLCD,0,1,'*') 
NEW=$SBF(CLCD,1,1, %*') 
SE=' CLCD '//$QM//CLCD//$QM 


IF SSBF(OLD,0,1) NE '$' and $SBF(NEW,0,1) NE ‘S' 
THEN $C=' PERLCD TO '//S$QM//NEW//SQM 
endif; 


IF $SBF(OLD,0,1) EQ '$' 
THEN $A=' PERLCD '//$QM//NEW//$QM 


endif; 


IF $SBF(NEW,0,1) EQ 'S' 
THEN $D=' PERLCD '//8QM//OLD//$QM 
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endif; 
endif; 


IF CLEI NE BLANK 

THEN 
OLD=$SBF(CLEI,0,1,'*') 
NEW=SSBF(CLEI,1,1,'*') 
SE=' CLEI '//$QM//CLEI//$QM 


IF $SBF(OLD,0,1) NE '$' and $SBF(NEW,0,1) NE 'S' 
THEN $C=' PERLEI TO '//$QM//NEW//$QM 
endif; 


IF $SBF(OLD,0,1) EQ '$' 
THEN $A=' PERLEI '//$QM//NEW//$QM 
endif; 


IF $SBF(NEW,0,1) EQ 'S' 
THEN $D=' PERLEI "//8QM//OLD//$QM 
endif; 

endif; 


IF CNAMEOR NE BLANK 

THEN 
OLD=$SBF (CNAMEOR,0,1,'*"') 
NEW=$SBF (CNAMEOR, 1,1, '*') 
$E=' CNAMEOR '//S$QM//CNAMEOR//$QM 


IF $SBF(OLD,0,1) NE '$' and $SBF(NEW,0,1) NE '$' 
THEN $C=' PERNAMEOR TO '//$QM//NEW//S$QM 
endif; 


IF $SBF(OLD,0,1) EQ 's' 
THEN $A=' PERNAMEOR '//$QM//NEW//S$QM 
endif; 


IF $SBF(NEW,0,1) EQ '$' (only occurs if ITOA = '2ZZ') 
THEN $D=' PERNAMEOR '//$QM//OLD//$QM 
endif; 

endif; 


IF CONAMEO3 NE BLANK 
THEN 
OLD=$ SBF (CONAMEO3,0,1,'*') 
NEW=S SBF (CONAMEO3,1,1, '*') 
$E=' IFCONAMEOR3 '//$QM//CONAMEO3//$QM 


IF $SBF(OLD,0,1) NE '$' and $SBF(NEW,0,1) NE 'S' 
THEN $C=' PERONAMEOR3 TO '//$QM//NEW//SQM 
endif; 


IF $SBF(OLD,0,1) EQ ‘s' 


THEN $A=' PERONAMEOR3 "//$QM//NEW//$QM 
endif; 
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IF $SBF(NEW,0,1) EQ '$' (only occurs if ITOA = a Aas 
THEN $D=' PERONAMEOR3 '//SQM//OLD//$QM 
endif; 

endif; 


IF CNOA NE BLANK 

THEN 
OLD=$SBF(CNOA,0,1, '*') 
NEW=SSBF(CNOA,1,1, '*') 
$E=' CNOA '//$QM//CNOA//S$QM 


IF $SBF(OLD,0,1) NE '$' and $SBF(NEW,0,1) NE 'S' 
THEN $C=' PERNOA '//$QM//OLD//$QM//'TO'//$QM//NEW//$QM 


endif; 


IF SSBF(OLD,0,1) EQ '$' 
THEN $A=' PERNOA '//SQM//NEW//SQM 
endif; 


IF $SBF(NEW,0,1) EQ '$' (only occurs if ITOA = '22') 
THEN $D=' PERNOA '//$QM//OLD//SQM 
endif; 

endif; 


IF CNSCA NE BLANK 

THEN 
OLD=SSBF(CNSCA,0,1,'*') 
NEW=$SBF(CNSCA,1,1,'*') 
SE=' CNSCA '//SQM//CNSCA//$QM 


IF $SBF(OLD,0,1) NE '$' and $SBF(NEW,0,1) NE '$' 
THEN $C=' PERNSCA TO '//SQM//NEW//SQM 
endif; 


IF $SBF(OLD,0,1) EQ '$' 
THEN $A=' PERNSCA '//SQM//NEW//SQM 
endif; 


IF SSBF(NEW,0,1) EQ 'S' 
THEN $D=' PERNSCA '//$QM//OLD//$QM 
endif; 

endif; 


IF CNSCADT NE BLANK 

THEN 
OLD=$SBF (CNSCADT,0,1,'*') 
NEW=SSBF (CNSCADT,1,1,'*') 
SE=' CNSCADT '//$QM//CNSCADT//S$QM 


IF $SBF(OLD,0,1) NE '$' and SSBF(NEW,0,1) NE '$' 


THEN $C=' PERNSCADT TO '//SQM//NEW//SQM 
endif; 
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IF $SBF(OLD,0,1) EQ 'S' 
THEN $A=' PERNSCADT '//$QM//NEW//SQM 
endif; 


IF $SBF(NEW,0,1) EQ '$' 
THEN $D=' PERNSCADT '//$QM//OLD//$QM 
endif; 

endif; 


IF CNTY NE BLANK 

THEN 
OLD=SSBF(CNTY,0,1,'*') 
NEW=SSBF (CNTY,1,1,'*') 
$E=" CNTY '//$QM//CNTY//S$QM 


IF $SBF(OLD,0,1) NE '$' and $SBF(NEW,0,1) NE '$ 
THEN $C=' PERNTY TO '//SQM//NEW//SQM 
endif; 


IF $SBF(OLD,0,1) EQ '$' 
THEN $A=' PERNTY '//$QM//NEW//S$QM 


endif; 
IF $SBF(NEW,0,1) EQ '$' (only occurs if ITOA = 'Z2') 
THEN $D=' PERNTY '//S$QM//OLD//SQM 
endif; 
endif; 
IF COCCE NE BLANK 
THEN 
OLD=$SBF(COCCE,0,1,'*') 
NEW=SSBF(COCCE,1,1,'*') 
SE=' COCCE '//$QM//COCCE//$QM 
IF $SBF(OLD,0,1) NE '$' and $SBF(NEW,0,1) NE '‘S' 
THEN $C=' PEROCCE TO '//$QM//NEW//S$QM 
endif; 
IF $SBF(OLD,0,1) EQ '$' 
THEN $A=' PEROCCE '//SQM//NEW//S$QM 
endif ; 
IF $SBF(NEW,0,1) EQ '$' (only occurs if ITOA = '22') 


THEN $D=' PEROCCE '//SQM//OLD//S$QM 
endif; 
endif; 


IF COCCETXT NE BLANK 
THEN 
OLD=$SBF (COCCETXT,0,1,'*') 
NEW=$SBF (COCCETXT,1,1,'*') 
$E=' COCCETXT '//$QM//COCCETXT//$QM 


IF $SBF(OLD,0,1) NE 'S' and $SBF(NEW,0,1) NE ‘'$' 
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THEN $C=' PEROCCETXT TO '//SQM//NEW//S$QM 
endif; 


IF $SBF(OLD,0,1) EQ 's' 
THEN $A=' PEROCCETXT '//$QM//NEW//$QM 
endif; 


IF $SBF(NEW,0,1) EQ 'S' (only occurs if ITOA = '2Z2Z') 
THEN $D=' PEROCCETXT '//S$QM//OLD//S$QM 
endif; 

endif; 


IF COCCFAM NE BLANK 

THEN 
OLD=SSBF (COCCFAM,0,1,'*') 
NEW=SSBF (COCCFAM,1,1,'*') 
SE=' COCCFAM '//SQM//COCCFAM//$QM 


IF $SBF(OLD,0,1) NE 'S' and $SBF(NEW,0,1) NE 'S$' 
THEN $C=' PEROCCFAM TO '//SQM//NEW//S$QM 
endif; 


IF $SBF(OLD,0,1) EQ '$' 
THEN SA=' PEROCCFAM '//SQM//NEW//S$QM 
endif; 


IF $SBF(NEW,0,1) EQ '$' (only occurs if ITOA = 'ZZ') 
THEN $D=' PEROCCFAM '//$QM//OLD//$QM 
endif; 

endif; 


IF COCCSUF NE BLANK 

THEN 
OLD=$SBF (COCCSUF,0,1,'*') 
NEW=$SBF (COCCSUF,1,1,'*') 
SE=' COCCSUF '//$QM//COCCSUF//$QM 


IF SSBF(OLD,0,1) NE 'S$' and S$SBF(NEW,0,1) NE 'S$' 
THEN $C=' PEROCCSUF TO '//$QM//NEW//S$QM 
endif; 


IF S$SBF(OLD,0,1) EQ '$' 
THEN SA=' PEROCCSUF '//$QM//NEW//SQM 
endif; 


IF SSBF(NEW,0,1) EQ 's' 
THEN SD=' PEROCCSUF '//SQM//OLD//$QM 
endif; 

endif; 


IF CNAMEOR3 NE BLANK 

THEN 
OLD=$SBF (CNAMEOR3,0,1, '**') 
NEW=SSBF (CNAMEOR3,1,1, '*') 
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$E=' CNAMEOR3 '//SQM//CNAMEOR3//SQM 


IF $SBF(OLD,0,1) NE '$' and $SBF(NEW,0,1) NE 'S$' 
THEN $C=' PERNAMEOR3 TO '//S$QM//NEW//SQM 
endif; 


IF $SBF(OLD,0,1) EQ '$' 
THEN SA=' PERNAMEOR3 '//S$QM//NEW//SQM 
endif; 


IF SSBF(NEW,0,1) EQ '$' (only occurs if ITOA = '22Z') 
THEN $D=' PERNAMEOR3 '//$QM//OLD//$QM 
endif; 

endif; 


IF CORGCODE NE BLANK 
THEN 
OLD=SSBF (CORGCODE,0,1,'*') 
NEW=SSBF (CORGCODE,1,1,'*') 
SE=' CORGCODE '//$QM//CORGCODE//$QM 


IF S$SBF(OLD,0,1) NE ‘$' and $SBF(NEW,0,1) NE '$' 
THEN $C=' PERORGCODE TO '//S$QM//NEW//SQM 
endif; 


IF SSBF(OLD,0,1) EQ ‘S$' 
THEN SA=' PERORGCODE '//$QM//NEW//SQM 
endif; 


IF SSBF(NEW,0,1) EQ 'S' (only occurs if ITOA = '22') 
THEN $D=' PERORGCODE '//$QM//OLD//$QM 
endif; : 

endif; 


IF CORGDTIN NE BLANK 
THEN 
OLD=$SBF (CORGDTIN,0,1,'*') 
NEW=SSBF (CORGDTIN, 1,1, '*') 
SE=' CORGDTIN '//$QM//CORGDTIN//$QM 


IF SSBF(OLD,0,1) NE 'S$' and SSBF(NEW,0,1) NE 'S$' 
THEN $C=' PERORGDTIN TO '//8QM//NEW//$QM 
endif; 


IF SSBF(OLD,0,1) EQ ‘$' 
THEN SA=' PERORGDTIN '//SQM//NEW//SQM 
endif; 


IF SSBF(NEW,0,1) EQ 'S' (only occurs if ITOA = 'ZZ') 
THEN $D=' PERORGDTIN '//$QM//OLD//$QM 
endif; 

endif; 


IF COVERLAP NE BLANK 
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THEN 
OLD=SSBF (COVERLAP,0,1,'*"') 
NEW=SSBF (COVERLAP,1,1,'%*') 
$E=' COVERLAP '//SQM//COVERLAP//$QM 


IF $SBF(OLD,0,1) NE 'S$' and SSBF(NEW,0,1) NE ig" 
THEN $C=' PEROVERLAP TO "//$QM/ /NEW//$QM 
endif; 


IF $SBF(OLD,0,1) EQ '$' 
THEN SA=' PEROVERLAP '//$QM//NEW//$QM 
endif; 


IF $SBF(NEW,0,1) EQ 's' 
THEN $D=' PEROVERLAP '//$QM//OLD//$QM 
endif; 

endif; 


IF COVLAPING NE BLANK 
THEN 
OLD=SSBF (COVLAPING ,0,1,'*') 
NEW=$SBF (COVLAPING,1,1, '*') 
SE=" COVLAPING '//$QM//COVLAPING/ /$QM 


IF $SBF(OLD,0,1) NE '$' and $SBF(NEW,0,1) NE '$' 
THEN $C=' PEROVLAPING TO '//$QM//NEW//S$QM 
endif; 


IF $SBF(OLD,0,1) EQ 'S' 
THEN SA=' PEROVLAPING '//$QM//NEW//SQM 
endif; 


IF $SBF(NEW,0,1) EQ 's' 
THEN $D=' PEROVLAPING "//SQM//OLD/ /$QM 
endif; 

endif; 


IF COVNTE NE BLANK 

THEN 
OLD=$SBF (COVNTE,0,1,'*') 
NEW=SSBF (COVNTE,1,1,'*') 
$E=' COVNTE '//SQM//COVNTE//$QM 


IF $SBF(OLD,0,1) NE '$' and $SBF(NEW,0,1) NE 'S' 
THEN §C=' PEROVNTE TO '//$QM//NEW//SQM 
endif; 


IF $SBF(OLD,0,1) EQ ‘§" 
THEN $A=' PEROVNTE '//$QM//NEW//$QM 
endif; 


IF $SBF(NEW,0,1) EQ 'S' 


THEN $D=' PEROVNTE "//SQM//OLD/ /$QM 
endif; 
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endif; 


IF CPAYB NE BLANK 

THEN 
OLD=$SBF(CPAYB,0,1,'*') 
NEW=SSBF(CPAYB,1,1,'*') 
SE=' CPAYB '//$QM//CPAYB//$QM 


IF $SBF(OLD,0,1) NE '$' and $SBF(NEW,0,1) NE '$' 
THEN $C=' PERPAYB TO '//$QM//NEW//SQM 
endif; 


IF $SBF(OLD,0,1) EQ 's' 
THEN $A=' PERPAYB '//SQM//NEW//$QM 
endif; 


IF $SBF(NEW,0,1) EQ 'S' 
THEN $D=' PERPAYB '//$QM//OLD//$QM 
endif; 

endif; 


IF CPAYDT NE BLANK 

THEN 
OLD=$SBF(CPAYDT,0,1,'*') 
NEW=S$SBF (CPAYDT,1,1,'*') 
SE=' CPAYDT '//SQM//CPAYDT//$QM 


IF $SBF(OLD,0,1) NE '$' and $SBF(NEW,0,1) NE '$' 
THEN $C=' PERPAYDT TO '//$QM//NEW//SQM 
endif; 


IF $SBF(OLD,0,1) EQ 's' 
THEN $A=' PERPAYDT '//SQM//NEW//SQM 
endif; 


IF $SBF(NEW,0,1) EQ ‘s' 
THEN $D=' PERPAYDT '//$QM//OLD//$QM 
endif; 

endif; 


IF CPAYDTC NE BLANK 
THEN 
OLD=SSBF(CPAYDTC,0,1,'*') 
NEW=$ SBF (CPAYDTC,1,1, '**") 
$E=' CPAYDTC '//$QM//CPAYDTC//SQM 


IF $SBF(OLD,0,1) NE '$' and $SBF(NEW,0,1) NE cst 
THEN $C=' PERPAYDTC TO "//$QM//NEW//$QM 
endif; 


IF $SBF(OLD,0,1) EQ '$' 


THEN SA=' PERPAYDTC '//SQM//NEW//SQM 
endif; 
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IF $SBF(NEW,0,1) EQ 'S' 
THEN SD=' PERPAYDTC '//SQM//OLD//$QM 
endif; 

endif; 


IF CPDATE NE BLANK 

THEN 
OLD=$SBF (CPDATE,0,1,'*') 
NEW=SSBF (CPDATE,1,1, '*') 
SE=' CPDATE '//$QM//CPDATE//$QM 


IF $SBF(OLD,0,1) NE ‘$' and $SBF(NEW,0,1) NE "s! 
THEN $C=' PERPDATE TO '//S$QM//NEW//$QM 
endif; 


IF SSBF (OLD,0,1) EQ '$' 
THEN $A=' PERPDATE '//$QM//NEW//SQM 
endif; 


IF $SBF(NEW,0,1) EQ '$' (only occurs if ITOA = '22') 
THEN $D=' PERPDATE '//SQM//OLD//$QM 
endif; 

endif; 


IF CPGVT NE BLANK 

THEN 
OLD=$SBF(CPGVT,0,1,'*') 
NEW=SSBF (CPGVT, 1,1, '*') 
$SE=' CPGVT '//$QM//CPGVT//$QM 


IF SSBF(OLD,0,1) NE '$' and SSBF(NEW,0,1) NE '$' 
THEN $C=' PERPGVT TO '//SQM//NEW//SQM 
endif; 


IF $SBF(OLD,0,1) EQ '$' 
THEN SA=' PERPGVT '//$QM//NEW//$QM 
endif; 


IF $SBF(NEW,0,1) EQ 'S' 
THEN $D=' PERPGVT '//$QM//OLD//$QM 
endif; 

endif; 


IF CPOSNO NE BLANK 

THEN 
OLD=$SBF(CPOSNO,0,1,'*') 
NEW=$SBF(CPOSNO,1,1,'*') 
sE=' CPOSNO '//$QM//CPOSNO//$QM 


IF $SBF(OLD,0,1) NE '$' and SSBF(NEW,0,1) NE 'S' 
THEN $C=' PERPOSNO TO '//$QM//NEW//SQM 
endif; 


IF $SBF(OLD,0,1) EQ '$' 
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THEN $A=' PERPOSNO "//SQM//NEW//SQM 
endif; 


IF $SBF(NEW,0,1) EQ '$' (only occurs if ITOA = 'ZZ') 
THEN $D=' PERPOSNO '//SQM//OLD//SQM 
endif; 

endif; 


IF CPRA NE BLANK 

THEN 
OLD=$SBF(CPRA,0,1,'*') 
NEW=SSBF(CPRA,1,1,'*') 
SE=' CPRA '//$QM//CPRA//$QM 


IF $SBF(OLD,0,1) NE '$' and $SBF(NEW,0,1) NE 'S' 
THEN $C=' PERPRA TO '//SQM//NEW//SQM 
endif; 


IF $SBF(OLD,0,1) EQ 's' 
THEN $A=' PERPRA '//$QM//NEW//$QM 


endif; 


IF $SBF(NEW,0,1) EQ '$' 
THEN $D=' PERPRA '//SQM//OLD//$QM 
endif; 

endif; 


IF CPRADI NE BLANK 

THEN 
OLD=$SBF(CPRADI,0,1,'*') 
NEW=$SBF(CPRADI,1,1,'*') 
$E=' CPRADI '//$QM//CPRADI//$QM 


IF $SBF(OLD,0,1) NE 'S$' and $SBF(NEW,0,1) NE ie 
THEN $C=' PERPRADI TO "//8QM//NEW//S$QM 
endif; 


IF $SBF(OLD,0,1) EQ 's' 
THEN $A=' PERPRADI '//$QM//NEW//SQM 
endif; 


IF $SBF(NEW,0,1) EQ ‘'$' 
THEN $D=' PERPRADI '//$QM//OLD//$QM 
endif; 

endif; 


IF CPRANTE NE BLANK 

THEN 
OLD=$SBF (CPRANTE,0,1,'*') 
NEW=$SBF (CPRANTE,1,1,'*') 
SE=' CPRANTE '//SQM//CPRANTE//$QM 


IF $SBF(OLD,0,1) NE '$' and $SBF(NEW,0,1) NE 'S' 
THEN $C=' PERPRANTE TO '//SQM//NEW//SQM 
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endif; 


IF SSBF(OLD,0,1) EQ 'S' 
THEN $A=' PERPRANTE '//SQM//NEW//SQM 
endif; 


IF SSBF(NEW,0,1) EQ '$' 
THEN $D=' PERPRANTE '//$QM//OLD//SQM 
endif; 

endif; 


IF CPRMNTE NE BLANK 

THEN 
OLD=$SBF(CPRMNTE,0,1, '*') 
NEW=$SBF(CPRMNTE, 1,1, '**') 
SE=' CPRMNTE '//SQM//CPRMNTE//$QM 


IF $SBF(OLD,0,1) NE '$' and $SBF(NEW,0,1) NE 'S' 
THEN $C=' PERPRMNTE TO '//SQM//NEW//$QM 
endif; 


IF S$SBF(OLD,0,1) EQ '$' 
THEN SA=' PERPRMNTE '//SQM//NEW//SQM 
endif; 


IF SSBF(NEW,0,1) EQ 'S' 
THEN $D=' PERPRMNTE '//SQM//OLD//$QM 
endif; 

endif; 


IF CPROJNO NE BLANK 

THEN 
OLD=$SBF (CPROJNO,0,1,'*') 
NEW=SSBF (CPROJNO,1,1,'*') 
SE=' CPROJNO '//$QM//CPROJNO/ /$QM 


IF S$SBF(OLD,0,1) NE '$' and S$SBF(NEW,0,1) NE 'S' 
THEN $C=' PERPROJNO TO '//SQM//NEW//SQM 
endif; 


IF $SBF(OLD,0,1) EQ 'S' 
THEN SA=' PERPROJNO '//SQM//NEW//$QM 
endif; 


IF S$SBF(NEW,0,1) EQ '$' (only occurs if ITOA = '22Z') 
THEN $D=! PERPROJNO '//$QM//OLD//S$QM 
endif; 

endif; 


IF CPWGI NE BLANK 

THEN 
OLD=$SBF(CPWGI,0,1,'*') 
NEW=$SBF (CPWGI,1,1,'*') 
SE=' CPWGI '//S$QM//CPWGI//SQM 
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IF $SBF(OLD,0,1) NE 'S' and S$SBF(NEW,0,1) NE '$' 
THEN $C=' PERPWGI TO '//SQM//NEW//SQM 
endif; 


IF $SBF(OLD,0,1) EQ '$' 
THEN $A=' PERPWGI '//$QM//NEW//$QM 
endif; 


IF $SBF(NEW,0,1) EQ ‘S' 
THEN SD=' PERPWGI '//$QM//OLD//$QM 
endif; 

endif; 


IF CRACE NE BLANK 

THEN 
OLD=SSBF(CRACE,0,1,'*') 
NEW=SSBF (CRACE,1,1,'*') 
SE=' CRACE '//SQM//CRACE//$QM 


IF $SBF(OLD,0,1) NE '$' and $SBF(NEW,0,1) NE ‘'S$' 
THEN $C=' PERRACE TO '//SQM//NEW//$QM 
endif; 


IF $SBF(OLD,0,1) EQ 'S$' 
THEN SA=' PERRACE '//SQM//NEW//$QM 
endif; 


IF $SBF(NEW,0,1) EQ '$' (only occurs if ITOA = 'ZZ') 
THEN $D=' PERRACE '//$QM//OLD//$QM 
endif; 

endif; 


IF CRESV1 NE BLANK 

THEN 
OLD=$SBF (CRESV1,0,1,'*') 
NEW=$SBF(CRESV1,1,1, '*') 
SE=' CRESV1 '//$QM//CRESV1//$QM 


IF $SBF(OLD,0,1) NE 'S' and $SBF(NEW,0,1) NE ‘S' 
THEN $C=' PERRESV1 TO '//SQM//NEW//SQM 
endif; 


IF SSBF(OLD,0,1) EQ '$' 
THEN SA=' PERRESV1 '//SQM//NEW//SQM 
endif; 


IF SSBF(NEW,0,1) EQ 'S$' 
THEN $D=' PERRESV1 '//$QM//OLD//$QM 
endif; 

endif; 


IF CRESV2 NE BLANK 
THEN 
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OLD=$SBF(CRESV2,0,1,'*') 
NEW=SSBF (CRESV2,1,1,'*') 
$E=' CRESV2 '//$QM//CRESV2//S$QM 


IF $SBF(OLD,0,1) NE 'S' and $SBF(NEW,0,1) NE ‘$' 
THEN $C=' PERRESV2 TO '//$QM//NEW//SQM 
endif; 


IF $SBF(OLD,0,1) EQ '$' 
THEN $A=' PERRESV2 '//$QM//NEW//$SQM 
endif; 


IF $SBF(NEW,0,1) EQ 'S' 
THEN $D=' PERRESV2 '//$QM//OLD//$QM 
endif; 

endif ; 


IF CRESV3 NE BLANK 

THEN 
OLD=$SBF(CRESV3,0,1,'*') 
NEW=SSBF(CRESV3,1,1,'%*') 
SE=' CRESV3 '//$QM//CRESV3//SQM 


IF $SBF(OLD,0,1) NE '$' and S$SBF(NEW,0,1) NE 'S' 
THEN $C=' PERRESV3 TO '//SQM//NEW//S$QM 
endif; 


IF $SBF(OLD,0,1) EQ '$' 
THEN SA=' PERRESV3 '//SQM//NEW//$QM 
endif; 


IF SSBF(NEW,0,1) EQ 'S' 
THEN $D=' PERRESV3 '//$QM//OLD//$QM 
endif; 

endif; 


IF CRESV4 NE BLANK 

THEN 
OLD=SSBF (CRESV4,0,1,'*') 
NEW=SSBF(CRESV4,1,1,'*") 
SE=' CRESV4 '//$QM//CRESV4//$QM 


IF $SBF(OLD,0,1) NE 'S$' and SSBF(NEW,0,1) NE 'S' 
THEN $C=' PERRESV4 TO '//SQM//NEW//SQM 
endif; 


IF SSBF(OLD,0,1) EQ '$' 
THEN SA=' PERRESV4 '//SQM//NEW//SQM 
endif; 


IF SSBF(NEW,0,1) EQ ‘S' 
THEN $D=' PERRESV4 '//SQM//OLD//$QM 
endif; 

endif; 
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IF CRESV5 NE BLANK 

THEN 
OLD=$SBF (CRESV5,0,1, '%*') 
NEW=SSBF(CRESV5,1,1,'*') 
SE=' CRESV5 '//SQM//CRESV5//$QM 


IF $SBF(OLD,0,1) NE '$' and $SBF(NEW,0,1) NE 'S' 
THEN $C=' PERRESVS TO '//$QM//NEW//S$QM 
endif; 


IF S$SBF(OLD,0,1) EQ '$' 
THEN $A=' PERRESVS '//$QM//NEW//$QM 
endif; 


IF $SBF(NEW,0,1) EQ 'S' 
THEN $D=' PERRESV5 "//$QM//OLD//$QM 
endif; 

endif; 


IF CRETDI NE BLANK 

THEN 
OLD=$SBF(CRETDI,0,1,'*') 
NEW=SSBF(CRETDI,1,1,'*') 
$E=' CRETDI '//$QM//CRETDI//$QM 


IF $SBF(OLD,0,1) NE '$' and $SBF(NEW,0,1) NE 'S' 
THEN $C=' PERRETDI TO '//$QM//NEW//$QM 
endif; 


IF $SBF(OLD,0,1) EQ 'S' 
THEN $A=' PERRETDI '//$QM//NEW//SQM 
endif; 


IF $SBF(NEW,0,1) EQ 'S' 
THEN SD=' PERRETDI "//$QM//OLD//$QM 
endif; 

endif; 


IF CRETNTE NE BLANK 
THEN 
OLD=$SBF (CRETNTE,0,1,'*') 
NEW=$SBF (CRETNTE,1,1,'*') 
SE=' CRETNTE '//S$QM//CRETNTE//$QM 
IF $SBF(OLD,0,1) NE '$' and SSBF(NEW,0,1) NE 'S' 
THEN $C=' PERRETNTE TO '//$QM//NEW//$QM 
endif; : 
IF $SBF(OLD,0,1) EQ 'S' 
THEN $A=' PERRETNTE '//$QM//NEW//SQM 


endif; 


IF $SBF(NEW,0,1) EQ 's' 
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THEN $D=' PERRETNTE '//SQM//OLD//$QM 
endif; 
endif; 


IF CRTMT NE BLANK 

THEN 
OLD=$SBF (CRTMT,0,1, '*') 
NEW=SSBF (CRTMT,1,1,'*') 
SE=' CRIMT '//$QM//CRTMT//SQM 


IF $SBF(OLD,0,1) NE 'S' and $SBF(NEW,0,1) NE '$' 
THEN $C=' PERRTMT TO '//$QM//NEW//$QM 
endif; 


IF $SBF(OLD,0,1) EQ 'S' 
THEN SA=' PERRTMT '//SQM//NEW//$QM 
endif; 


IF $SBF(NEW,0,1) EQ 'S' 
THEN $D=' PERRTMT '//SQM//OLD//$QM 
endif; 

endif; 


IF CRIMITXT NE BLANK 
THEN 
OLD=S$SBF (CRTMTTXT,0,1,'*') 
NEW=SSBF (CRTMTTXT,1,1,'*') 
SE=' CRIMTTXT '//$QM//CRTMTTXT//$QM 


IF $SBF(OLD,0,1) NE '$' and $SBF(NEW,0,1) NE ‘$' 
THEN $C=' PERRTMTITXT TO '//S$QM//NEW//SQM 
endif; 


IF SSBF(OLD,0,1) EQ 'S' 
THEN SA=' PERRTMTTXT '//$QM//NEW//SQM 
endif; 


IF SSBF(NEW,0,1) EQ 'S' 
THEN $D=' PERRTMTTXT '//$QM//OLD//$QM 
endif; 

endif; 


IF CSALARY NE BLANK 

THEN 
OLD=$SBF (CSALARY,0,1,'*') 
NEW=SSBF (CSALARY,1,1, '*") 
SE=' CSALARY '//$QM//CSALARY// SQM 


IF $SBF(OLD,0,1) NE 'S' and $SBF(NEW,0,1) NE "sg! 
THEN SC=' PERSALARY TO '//S$QM//NEW//$QM 
endif; 


IF $SBF(OLD,0,1) EQ '$' 
THEN $A=' PERSALARY '//SQM//NEW//$QM 
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endif; 


IF SSBF(NEW,0,1) EQ '$' 
THEN $D=' PERSALARY '//$QM//OLD//$QM 
endif; 

endif; 


IF CSCCE NE BLANK 

THEN 
OLD=$SBF(CSCCE,0,1,'*') 
NEW=SSBF(CSCCE,1,1,'*') 
SE=' CSCCE '//$QM//CSCCE//SQM 


IF $SBF(OLD,0,1) NE '$' and $SBF(NEW,0,1) NE '$' 
THEN $C=' PERSCCE TO '//SQM//NEW//SQM 
endif; 


IF S$SBF(OLD,0,1) EQ '$' 
THEN $A=' PERSCCE '//SQM//NEW//$QM 
endif; 


IF $SBF(NEW,0,1) EQ 'S' (only occurs if ITOA = “Ee y 
THEN $D=' PERSCCE "//$QM//OLD/ /$QM 
endif; 

endif; 


IF CSCCESK NE BLANK 

THEN 
OLD=SSBF (CSCCESK,0,1, '*') 
NEW=SSBF (CSCCESK,1,1,'*') 
$E=' CSCCESK '//$QM//CSCCESK//$QM 


IF S$SBF(OLD,0,1) NE 'S' and $SBF(NEW,0,1) NE ‘s* 
THEN $C=' PERSCCESK TO "//$QM//NEW//$QM 
endif; 


IF $SBF(OLD,0,1) EQ '$' 
THEN $A=' PERSCCESK "//$QM/ /NEW/ /$QM 
endif; 


IF $SBF(NEW,0,1) EQ '$' (only occurs if ITOA = 'ZZ') 
THEN $D=' PERSCCESK "//SQM//OLD//$QM 
endif; 

endif; 


IF CSCCETXTS NE BLANK 
THEN 
OLD=$SBF (CSCCETXTS,0,1,'*"') 
NEW=$ SBF (CSCCETXTS ,1,1,'*') 
$E=' CSCCETXTS '//S$QM//CSCCETXTS//$QM 


IF $SBF(OLD,0,1) NE '$' and $SBF(NEW,0,1) NE 'S$' 


THEN $C=' PERSCCETXTS TO '//$QM//NEW/ /$QM 
endif; 
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IF SSBF(OLD,0,1) EQ 'S' 
THEN SA=' PERSCCETXTS '//S$QM//NEW//5QM 
endif; 


IF $SBF(NEW,0,1) EQ '$' (only occurs if ITOA = '22') 
THEN $D=' PERSCCETXTS '//$QM//OLD//$QM 
endif; 

endif; 


IF CSCD NE BLANK 

THEN 
OLD=SSBF(CSCD,0,1,'*') 
NEW=SSBF(CSCD,1,1,'*') 
$E=' CSCD '//$QM//CSCD//$QM 


IF $SBF(OLD,0,1) NE 'S' and $SBF(NEW,0,1) NE '$' 
THEN $C=' PERSCD TO '//$QM//NEW//$QM 
endif; 


IF S$SBF(OLD,0,1) EQ ‘'$' 
THEN $A=' PERSCD '//$QM//NEW//$QM 
endif; 


IF $SBF(NEW,0,1) EQ ‘$' 
THEN $D=' PERSCD '//$QM//OLD//$QM 
endif; 

endif; 


IF CSCH NE BLANK 

THEN 
OLD=$SBF(CSCH,0,1,'*') 
_NEW=$SBF(CSCH,1,1,'*') 
$E=' CSCH '//S8QM//CSCH//$QM 


IF $SBF(OLD,0,1) NE '$' and $SBF(NEW,0,1) NE ‘S$' 
THEN $C=' PERSCH TO '//$QM//NEW//SQM 
endif; 


IF SSBF(OLD,0,1) EQ 'S' 
THEN $A=' PERSCH '//SQM//NEW//$QM 
endif; 


IF $SBF(NEW,0,1) EQ '$' (only occurs if ITOA = '22') 
THEN $D=' PERSCH '//S$QM//OLD//$QM 
endif; 

endif; 


IF CSCHGRSK1 NE BLANK 
THEN 
OLD=$SBF (CSCHGRSK1,0,1,'*') 
NEW=SSBF (CSCHGRSK1,1,1,'*') 
SE=' CSCHGRSK1 '//SQM//CSCHGRSK1//$QM 
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IF $SBF(OLD,0,1) NE '$' and $SBF(NEW,0,1) NE 'S' 
THEN $C=' PERSCHGRSK1 TO '//$QM//NEW//SQM 
endif; 


IF $SBF(OLD,0,1) EQ 'S' 
THEN $A=' PERSCHGRSK1 '//SQM//NEW//$QM 
endif; 


IF $SBF(NEW,0,1) EQ 'S' 
THEN S$D=' PERSCHGRSK1 '//$QM//OLD//$QM 
endif; 

endif; 


IF CSCHGRSK2 NE BLANK 
THEN 
OLD=$SBF (CSCHGRSK2 ,0,1,'*') 
NEW=SSBF (CSCHGRSK2,1,1,'*') 
SE=' CSCHGRSK2 '//SQM//CSCHGRSK2//$QM 


IF $SBF(OLD,0,1) NE '$' and $SBF(NEW,0,1) NE '$' 
THEN $C=' PERSCHGRSK2 TO '//$QM//NEW//$QM 
endif; 


IF $SBF(OLD,0,1) EQ '$' 
THEN SA=' PERSCHGRSK2 '//SQM//NEW//$QM 
endif; 


IF $SBF(NEW,0,1) EQ '$' 
THEN $D=' PERSCHGRSK2 '//$QM//OLD//S$QM 
endif; 

endif; 


IF CSCHPRT1 NE BLANK 
THEN 
OLD=$SBF(CSCHPRT1,0,1,'*') 
NEW=$SBF (CSCHPRT1,1,1, '*') 
SE=' CSCHPRT1 '//$QM//CSCHPRT1//$QM 


IF $SBF(OLD,0,1) NE '$' and $SBF(NEW,0,1) NE '‘'S' 
THEN $C=' PERSCHPRT1 TO '//$QM//NEW//$QM 
endif; 


IF $SBF(OLD,0,1) EQ '$' 
THEN SA=' PERSCHPRT1 '//$QM//NEW//$QM 
endif; 


IF $SBF(NEW,0,1) EQ 'S' 
THEN $D=' PERSCHPRT1 '//$QM//OLD//$QM 
endif; 

endif; 


IF CSD NE BLANK 


THEN 
OLD=SSBF(CSD,0,1,'*') 
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NEW=SSBF(CSD,1,1,'*') 
$E=' CSD '//SQM//CSD//$QM 


IF $SBF(OLD,0,1) NE '$' and $SBF(NEW,0,1) NE '$' 
THEN $C=' PERSD TO '//$QM//NEW//$QM 
endif; 


IF $SBF(OLD,0,1) EQ '$' 
THEN SA=' PERSD '//$QM//NEW//$QM 
endif; 


IF $SBF(NEW,0,1) EQ '$' (only occurs if ITOA = 'ZZ') 
THEN $D=' PERSD '//$QM//OLD//$QM 
endif; 

endif; 


IF CSECCL NE BLANK 

THEN 
OLD=$SBF(CSECCL,0,1,'*') 
NEW=SSBF(CSECCL,1,1,'*') 
SE=' CSECCL '//S$QM//CSECCL//$QM 


IF $SBF(OLD,0,1) NE '$' and SSBF(NEW,0,1) NE 'S' 
THEN $C=' PERSECCL TO '//S$QM//NEW//$QM 
endif; 


IF $SBF(OLD,0,1) EQ 'S' 
THEN $A=' PERSECCL '//$QM//NEW//SQM 
endif; 


IF SSBF(NEW,0,1) EQ 'S' 
THEN $D=' PERSECCL '//$QM//OLD//$QM 
endif; 

endif; 


IF CSEQ NE BLANK 

THEN 
OLD=$SBF (CSEQ,0,1,'*') 
NEW=SSBF(CSEQ,1,1,'*') 
SE=' CSEQ '//SQM//CSEQ//$QM 


IF $SBF(OLD,0,1) NE '$' and $SBF(NEW,0,1) NE ‘S' 
THEN $C=' PERSEQ TO '//$QM//NEW//$QM 
endif; 


IF $SBF(OLD,0,1) EQ ‘S' 
THEN SA=' PERSEQ '//SQM//NEW//SQM 
endif; 


IF SSBF(NEW,0,1) EQ ‘S' 
THEN $D=' PERSEQ '//S$QM//OLD//$QM 
endif; 

endif; 
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IF CSERIAL NE BLANK 

THEN 
OLD=S$SBF (CSERIAL,0,1,'*') 
NEW=SSBF(CSERIAL,1,1,'*') 
$E=' CSERIAL '//$QM//CSERIAL//SQM 


IF $SBF(OLD,0,1) NE '$' and $SBF(NEW,0,1) NE '$' 
THEN $C=' PERSERIAL TO '//$QM//NEW//SQM 
endif; 


IF $SBF(OLD,0,1) EQ '$' 
THEN $A=' PERSERIAL '//$QM//NEW//SQM 
endif; 


IF $SBF(NEW,0,1) EQ 's' 
THEN SD=' PERSERIAL "//$QM//OLD//$QM 
endif; 

endif; 


IF CSEX NE BLANK 

THEN 
OLD=$SBF(CSEX,0,1,'*') 
NEW=SSBF (CSEX,1,1,'*') 
$E=' CSEX '//$QM//CSEX//SQM 


IF $SBF(OLD,0,1) NE '$S' and $SBF(NEW,0,1) NE 'S' 
THEN $C=' PERSEX TO '//$QM//NEW//SQM 
endif; 


IF SSBF(OLD,0,1) EQ '$' 
THEN $A=' PERSEX '//S$QM//NEW//SQM 
endif; 


IF $SBF(NEW,0,1) EQ '$' (only occurs if ITOA = 'Z2') 
THEN $D=' PERSEX "//$QM//OLD//$QM 
endif; 

endif; 


IF CSFN NE BLANK 

THEN 
OLD=$SBF(CSFN,0,1,'*') 
NEW=SSBF(CSFN,1,1, '*') 
SE=' CSFN '//8QM//CSFN//$QM 


IF $SBF(OLD,0,1) NE '$' and $SBF(NEW,0,1) NE '$' 
THEN $C=' PERSFN TO '//$QM//NEW//SQM 
endif; 


IF $SBF(OLD,0,1) EQ '$' 
THEN $A=' PERSFN '//$QM//NEW//$QM 


endif; 


IF $SBF(NEW,0,1) EQ '$' (only occurs if ITOA = 'ZZ"') 
THEN SD=' PERSFN '//$QM//OLD//$QM 


Approved AarRelease: 2005/98/02 1 Fl AcRDP.B8/00893R000200060006-1 


Approved #8ERGfdadd DoOsHOs A CIA DPEs 00893RO0020NU60008-1 


endif; 
endif; 


IF CSREF NE BLANK 

THEN 
OLD=$SBF(CSREF,0,1,'*') 
NEW=SSBF(CSREF,1,1,'*') 
SE=' CSREF '//$QM//CSREF//$QM 


IF $SBF(OLD,0,1) NE '$' and $SBF(NEW,0,1) NE 'S' 
THEN $C=' PERSREF '//S$QM//OLD//$QM//'TO'//$QM//NEW//$QM 
endif; 


IF $SBF(OLD,0,1) EQ ‘$' 
THEN SA=' PERSREF '//$QM//NEW//SQM 
endif; 


IF $SBF(NEW,0,1) EQ '$' 
THEN $D=' PERSREF '//SQM//OLD//$QM 
endif; 

endif; 


IF CSSNOTH NE BLANK 

THEN 
OLD=$SBF (CSSNOTH,0,1,'*') 
NEW=SSBF (CSSNOTH,1,1, '*') 
SE=' CSSNOTH '//$QM//CSSNOTH//$QM 


IF $SBF(OLD,0,1) NE '$' and $SBF(NEW,0,1) NE 'S' 
THEN $C=' PERSSNOTH TO '//$QM//NEW//S$QM 
endif; 


IF $SBF(OLD,0,1) EQ ‘$' 
THEN $A=' PERSSNOTH '//SQM//NEW//SQM 
endif; 


IF $SBF(NEW,0,1) EQ ‘'S' 
THEN $D=' PERSSNOTH '//$QM//OLD//$QM 
endif; 

endif; 


IF CSTAN NE BLANK 

THEN 
OLD=SSBF (CSTAN,0,1,'*') 
NEW=SSBF (CSTAN,1,1,'*') 
SE=' CSTAN '//$QM//CSTAN//S$QM 


IF $SBF(OLD,0,1) NE ‘$' and $SBF(NEW,0,1) NE 'S' 
THEN $C=' PERSTAN TO '//SQM//NEW//SQM 
endif; 


IF S$SBF(OLD,0,1) EQ '$' 


THEN SA=' PERSTAN '//SQM//NEW//SQM 
endif; 
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IF $SBF(NEW,0,1) EQ '$' (only occurs if ITOA = 'ZZ') 
THEN $D=' PERSTAN '//S$QM//OLD//$QM 
endif; 

endif; 


IF CSTANAREA NE BLANK 
THEN 
OLD=$SBF (CSTANAREA,0,1,'*') 
NEW=SSBF (CSTANAREA,1,1,'*') 
SE=' CSTANAREA '//$QM//CSTANAREA/ /$QM 


IF $SBF(OLD,0,1) NE 'S' and $SBF(NEW,0,1) NE 'S' 
THEN $C=' PERSTANAREA TO '//$QM//NEW//SQM 
endif; 


IF SSBF(OLD,0,1) EQ '$' 
THEN $A=' PERSTANAREA '//SQM//NEW//SQM 
endif; 


IF $SBF(NEW,0,1) EQ 'S' (only occurs if ITOA = '22") 
THEN $D=' PERSTANAREA '//S$QM//OLD//SQM 
endif; 

endif; 


IF CSTANTXT NE BLANK 
THEN 
OLD=$ SBF (CSTANTXT,0,1,'*') 
NEW=S SBF (CSTANTXT, 1,1, '*") 
SE=' CSTANTXT '//SQM//CSTANTXT//$QM 


IF $SBF(OLD,0,1) NE '$' and SSBF(NEW,0,1) NE ‘'S' 
THEN $C=' PERSTANTXT TO '//$QM//NEW//$QM 
endif; 


IF $SBF(OLD,0,1) EQ '$' 
THEN $A=' PERSTANTXT '//SQM//NEW//SQM 
endif; 


IF S$SBF(NEW,0,1) EQ 'S' (only occurs if ITOA = '2Z2') 
THEN $D=' PERSTANTXT '//$QM//OLD//$QM 
endif; 

endif; 


IF CSTEP2 NE BLANK 

THEN 
OLD=SSBF (CSTEP2 ,0,1, '*") 
NEW=SSBF(CSTEP2,1,1,'*') 
SE=' CSTEP2 '//S$QM//CSTEP2//$QM 


IF $SBF(OLD,0,1) NE 'S' and S$SBF(NEW,0,1) NE '$' 


THEN $C=' PERSTEP2 TO '//$QM//NEW//$QM 
endif; 
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IF $SBF(OLD,0,1) EQ 's' 
THEN $A=' PERSTEP2 '//SQM//NEW//$QM 
endif; 


IF $SBF(NEW,0,1) EQ 'Ss' 
THEN $D=' PERSTEP2 '//$QM//OLD//$QM 
endif; 

endif; 


IF CSTIND NE BLANK 

THEN 
OLD=SSBF(CSTIND,O,1,'*') 
NEW=SSBF(CSTIND,1,1,'*') 
$E=' CSTIND '//$QM//CSTIND//$QM 


IF $SBF(OLD,0,1) NE '$' and $SBF(NEW,0,1) NE ‘S' 
THEN $C=' PERSTIND TO '//SQM//NEW//SQM 
endif; 


IF $SBF(OLD,0,1) EQ '$s' 
THEN SA=' PERSTIND '//SQM//NEW//SQM 
endif; 


IF $SBF(NEW,0,1) EQ 'S$' 
THEN $D=' PERSTIND '//$QM//OLD//$QM 
endif; 

endif; 


IF CSTRCTR NE BLANK 

THEN 
OLD=S$SBF(CSTRCTR,O,1,'*') 
NEW=SSBF (CSTRCTR,1,1,'*') 
SE=' CSTRCTR '//$QM//CSTRCTR//$QM 


IF $SBF(OLD,0,1) NE '$' and SSBF(NEW,0,1) NE '$' 
THEN $C=' PERSTRCTR '//S$QM//OLD//$QM//' TO ' 
//$QM//NEW/ /$QM 


endif; 


IF $SBF(OLD,0,1) EQ '$' 
THEN $A=' PERSTRCTR '//SQM//NEW//SQM 
endif; 


IF SSBF(NEW,0,1) EQ '$' 
THEN $D=' PERSTRCTR '//S$QM//OLD//$QM 
endif; 

endif; 


IF CTOA NE BLANK 

THEN 
OLD=SSBF(CTOA,0,1,'*') 
NEW=SSBF (CTOA,1,1, '*') 
$E=' CTOA '//$QM//CTOA//$QM 
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IF $SBF(OLD,0,1) NE '$' and $SBF(NEW,0,1) NE 'S' 


THEN $C=' PERTOA '//$QM//OLD//$QM//'TO'//$QM//NEW//$QM 
endif; 


IF $SBF(OLD,0,1) EQ '$' 
THEN SA=' PERTOA '//$QM//NEW//$QM 
endif; 


IF $SBF(NEW,0,1) EQ '$' (only occurs if ITOA = 'ZZ') 
THEN $D=' PERTOA '//$QM//OLD//S$QM 
endif; 

endif; 


IF CTOUR NE BLANK 

THEN 
OLD=$SBF(CTOUR,O,1,'*') 
NEW=SSBF (CTOUR,1,1,'*') 
$E=' CTOUR '//$QM//CTOUR//$QM 


IF $SBF(OLD,0,1) NE '$' and $SBF(NEW,0,1) NE 'S' 
THEN $C=' PERTOUR TO '//$QM//NEW//SQM 
endif; 


IF S$SBF(OLD,0,1) EQ 'S' 
THEN $A=' PERTOUR '//$QM//NEW//$QM 
endif; 


IF $SBF(NEW,0,1) EQ '$' 
THEN $D=' PERTOUR '//$QM//OLD//SQM 
endif; 

endif; 


IF CVET NE BLANK 

THEN 
OLD=$SBF(CVET,0,1,'*') 
NEW=SSBF(CVET,1,1,'*') 
SE=' CVET '//$QM//CVET//S$QM 


IF $SBF(OLD,0,1) NE '$' and $SBF(NEW,0,1) NE 'S$' 
THEN $C=' PERVET TO '//SQM//NEW//SQM 
endif; 


IF $SBF(OLD,0,1) EQ '$' 
THEN $A=' PERVET '//SQM//NEW//SQM 
endif; 


IF SSBF(NEW,0,1) EQ ‘'s' 
THEN $D=' PERVET '//$QM//OLD//$QM 
endif; 

endif; 


IF CWGIE NE BLANK 


THEN 
OLD=' ',OLD=$SBF(CWGIE,0,1,'%*') 
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NEW=SSBF(CWGIE,1,1,'*') 
SE=' CWGIE '//SQM//CWGIE//$QM 


IF $SBF(OLD,0,1) NE '$' and $SBF(NEW,0,1) NE '$' 
THEN $C=' PERWGIE TO '//$QM//NEW//SQM 
endif; 


IF $SBF(OLD,0,1) EQ '$' 
THEN S$A=' PERWGIE '//S$QM//NEW//$QM 
endif; 


IF $SBF(NEW,0,1) EQ '$' (only occurs if ITOA = '22Z') 
THEN $D=' PERWGIE '//SQM//OLD//$QM 
endif; 

endif; 


IF GCUTOFFDT NE BLANK | 
THEN SE=' GCUTOFFDT '//S$QM//GCUTOFFDT//$QM 
endif; 


IF GPROJUPDTD NE BLANK 
THEN SE=' GPROJUPDTD '//$QM//GPROJUPDTD/ /S$QM 
endif; 


IF IACTREQ NE BLANK 
THEN SE=' IACTREQ '//$QM//IACTREQ//$QM 
endif; 


IF IAFF NE BLANK 
THEN SE=' IAFF '//SQM//IAFF//8QM 
endif; 


IF IAL NE BLANK 
THEN SE=' IAL '//$QM//IAL//$QM 
endif; 


IF IANO NE BLANK 
THEN SE=' IANO '//$QM//IANO//$QM 
endif; 


IF IANPRPAY NE BLANK 
THEN $E=' IANPRPAY '//SQM//IANPRPAY//$QM 
endif; 


IF IANTYSAL NE BLANK 
THEN $E=' IANTYSAL '//S$QM//IANTYSAL//SQM 
endif; 


IF IANTYST NE BLANK 
THEN SE=' IANTYST '//SQM//IANTYST//$QM 
endif; 


IF IAORG NE BLANK 
THEN SE=' IAORG '//$QM//IAORG//$QM 
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endif; 


IF TAPNTE NE BLANK 
THEN SE=' IAPNTE "//8QM//ITAPNTE//SQM 
endif; 


IF ICCANO NE BLANK 
THEN $E=' ICCANO '//$QM//ICCANO//SQM 
endif; 


IF ICCNOA NE BLANK 
THEN SE=' ICCNOA "//8QM//ICCNOA//$QM 
endif; 


IF ICCTOA NE BLANK 
THEN $E=' ICCTOA "//8QM//ICCTOA//$QM 
endif; 


IF ICIT NE BLANK 
THEN $E=' ICIT '//$QM//ICIT//$QM 
endif; 


IF ICSEOD NE BLANK 
THEN $E=' ICSEOD "//8QM//ICSEOD//$QM 
endif; 


IF ICTPCLASS NE BLANK 
THEN $E=' ICTPCLASS '//$QM//ICTPCLASS//$QM 
endif; 


IF IDETC NE BLANK 
THEN SE=' IDETC "//$QM//IDETC//$QM 
endif; 


IF IDETONTE NE BLANK 
THEN SE=' IDETONTE "//8QM//IDETONTE/ /SQM 
endif; 


IF IDEVC NE BLANK 
THEN $E=' IDEVC '//$QM//IDEVC//SQM 
endif; 


IF IDEVDI NE BLANK 
THEN $E=' IDEVDI '//$QM//IDEVDI//SQM 
endif; 


IF IDEVLAST NE BLANK 
THEN $E=' IDEVLAST '//$QM//IDEVLAST//$QM 
endif; 


IF IDEVNTE NE BLANK 


THEN SE=' IDEVNTE "//$QM//IDEVNTE//$QM 
endif; 
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IF IDOA NE BLANK 
THEN SE=' IDOA '//SQM//IDOA//$QM 
endif; 


IF IDOB NE BLANK 
THEN SE=' IDOB '//$QM//IDOB//$QM 


endif; 


IF IDOG NE BLANK 
THEN SE=' IDOG '//$QM//IDOG//S$QM 
endif; 


IF IETP NE BLANK 
THEN SE=' IETP '//$QM//IETP//$QM 
endif; 


IF IFLSA NE BLANK 
THEN SE=' IFLSA '//SQM//IFLSA//$QM 
endif; 


IF IFLSADT NE BLANK 
THEN S$E=' IFLSADT '//$QM//IFLSADT//$QM 
endif; 


IF IGR NE BLANK 
THEN SE=' IGR '//SQM//IGR//S$QM 
endif; 


IF IHQ NE BLANK 
THEN $E=" IHQ '//$QM//IHQ//$QM 


endif; 


IF IHRS NE BLANK 
THEN SE=' IHRS '//$QM//IHRS//$QM 
endif; 


IF IINDT NE BLANK 
THEN SE=' IINDT '//S$QM//IINDT//S$QM 
endif; 


IF IINORIGDT NE BLANK 
THEN SE=' IINORIGDT '//$QM//IINORIGDT//$QM 
endif; 


IF ILCD NE BLANK 
THEN SE=' ILCD '//$QM//ILCD//$QM 
endif; 


IF ILEI NE BLANK 
THEN SE=' ILEI '//$QM//ILEI//$QM 
endif; 


IF ILWOPSTRT NE BLANK 
THEN SE=' ILWOPSTRT '//$QM//ILWCPSTRT//$QM 
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IF IOVERLAP NE BLANK 
THEN $E=' IOVERLAP '//SQM//IOVERLAP/ /$QM 
endif; 


IF IOVNTE NE BLANK 
THEN SE=' IOVNTE '//SQM//IOVNTE//SQM 
endif; 


IF IOVRD NE BLANK 
THEN SE=' IOVRD '//S$QM//IOVRD//$QM 
endif; 


IF IPAYB NE BLANK 
THEN SE=' IPAYB '//SQM//IPAYB//$QM 
endif; 


IF IPGVT NE BLANK 
THEN SE=' IPGVT '//SQM//IPGVT//SQM 
endif; 


IF IPOSNO NE BLANK 
THEN SE=' IPOSNO '//$QM//IPOSNO//$QM 
endif; 


IF IPRA NE BLANK 
THEN SE=' IPRA '//$QM//IPRA//$QM 
endif; 


IF IPRADI NE BLANK 
THEN SE=' IPRADI '//$QM//IPRADI//$QM 
endif; 


IF IPRANTE NE BLANK 
THEN $E=' IPRANTE '//SQM//IPRANTE//$QM 
endif; 


IF IPRMNTE NE BLANK 
THEN SE=' IPRMNTE '//SQM//IPRMNTE//$QM 
endif; 


IF IPROJNO NE BLANK 
THEN $E=' IPROJNO '//$QM//IPROJNO//$QM 
endif; 


IF IPWGI NE BLANK 
THEN SE=' IPWGI '//SQM//IPWGI//$QM 
endif; 


IF IRACE NE BLANK 
THEN SE=' IRACE '//SQM//IRACE//$QM 
endif; 


IF IREMC NE BLANK 
THEN $E=' IREMC '//SQM//IREMC//$QM 
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endif; 


IF INAMEOR NE BLANK 
THEN $SE=' INAMEOR "//8QM// INAMEOR/ /$QM 
endif; 


IF INAMEOR3 NE BLANK 
THEN $E=' INAMEOR3 '//SQM//INAMEOR3//SQM 
endif; 


IF INCPP NE BLANK 
THEN $E=' INCPP '//$QM//INCPP//SQM 
endif; 


IF INEWIDN NE BLANK 
THEN $SE=' INEWIDN "//8QM//INEWIDN/ /$QM 
endif; 


IF INSCA NE BLANK 
THEN $E=' INSCA "//8QM// INSCA/ /$QM 
endif; 


IF INSCADT NE BLANK 
THEN SE=' INSCADT "//8QM//INSCADT/ /$QM 
endif; 


IF INTY NE BLANK 
THEN $E=' INTY '//8QM//INTY//SQM 
endif; 


IF IOCCE NE BLANK 
THEN SE=' IOCCE "//$QM//IOCCE//$QM 
endif; 


IF IOCCSUF NE BLANK 
THEN SE=' IOCCSUF '//8QM//IOCCSUF/ /$QM 
endif; 


IF [OPERATOR NE BLANK 
THEN SE=' IOPERATOR "//8QM//IOPERATOR/ /$QM 
endif; 


IF IORGCODE NE BLANK 
THEN SE=' IORGCODE "//8QM// IORGCODE//$QM 
endif; 


IF IORGDTIN NE BLANK 
THEN SE=' IORGDTIN "//8QM//ITORGDTIN/ /$QM 
endif; 


IF JOUTSK NE BLANK 


THEN SE=' IOUTSK '//$QM//IOUTSK/ /$QM 
endif; 
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endif; 


IF IREMNS NE BLANK 
THEN $SE=' IREMNS "//SQM//IREMNS/ /$QM 
endif; 


IF IRESV1 NE BLANK 
THEN $E=' IRESV1 '//$QM//IRESV1//$QM 
endif; 


IF ITRESV2 NE BLANK 
THEN SE=' IRESV2 "//SQM//IRESV2//$QM 
endif; 


IF TRESV3 NE BLANK 
THEN $E=' IRESV3 '//$QM//IRESV3//$QM 
endif; 


IF IRESV4 NE BLANK 
THEN $E=' IRESV4 '//$QM//IRESV4//$QM 


endif; 


IF IRESV5 NE BLANK 
THEN SE=' IRESV5 '//SQM//IRESV5//SQM 
endif; 


IF IRETDI NE BLANK 
THEN $E=' IRETDI "//$QM//IRETDI//$QM 
endif; 


IF IRETNTE NE BLANK 
THEN $E=' IRETNTE "//$QM//IRETNTE//$QM 
endif; 


IF IRTMT NE BLANK 
THEN SE=' IRTMT "//8QM//IRTMT//$QM 
endif; 


IF ISALARY NE BLANK 
THEN $SE=' ISALARY "//SQM//ISALARY//$QM 
endif; 


IF ISCCE NE BLANK 
THEN S$E=' ISCCE '//$QM//ISCCE//$QM 
endif; 


IF ISCD NE BLANK 
THEN $E=' ISCD '//$QM//ISCD//SQM 
endif; 


IF ISCH NE BLANK 


THEN SE=' ISCH "//8QM//ISCH//SQM 
endif; 
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IF ISD NE BLANK 
THEN SE=' ISD '//SQM//ISD//$QM 
endif; 


IF ISECCL NE BLANK 
THEN $E=' ISECCL '//$QM//ISECCL//$QM 
endif; 


IF ISEPCODE NE BLANK 
THEN SE=' ISEPCODE '//$QM//ISEPCODE//$QM 
STMT=' PRIMSEPCODE '//$QM//ISEPCODE//$QM// 
//' PRIMSEPDTE '//$QM//IDOA//$QM 
endif; 


IF ISEPCOMP NE BLANK 
THEN SE=' ISEPCOMP '//SQM//ISEPCOMP//S$QM 
endif; 


IF ISERIAL NE BLANK 
THEN SE=' ISERIAL '//SQM//ISERIAL//$QM 
endif ; 


IF ISEX NE BLANK 
THEN SE=' ISEX '//SQM//ISEX//$QM 
endif; 


IF ISFN NE BLANK 
THEN SE=' ISFN '//$QM//ISFN//$QM 
endif; 


IF ISIGN NE BLANK 
THEN SE=' ISIGN '//SQM//ISIGN//$QM 
endif; 


IF ISREF NE BLANK 
THEN SE=' ISREF '//$QM//ISREF//$QM 
endif; 


IF ISSNOTH NE BLANK 
THEN SE=' ISSNOTH '//$QM//ISSNOTH//SQM 
endif; 


IF ISTAN NE BLANK 
THEN SE=' ISTAN '//$QM//ISTAN//SQM 
endif; 


IF ISTEP2 NE BLANK 
THEN SE=' ISTEP2 '//SQM//ISTEP2//SQM 
endif; 


IF ISUSPEN NE BLANK 


THEN SE=' ISUSPEN '//SQM//ISUSPEN//$QM 
endif; 
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IF ITIDN NE BLANK 


THEN $E=' ITIDN '//SQM//ITIDN//$QM 
endif; 


IF ITNAME NE BLANK 
THEN $E=' ITNAME '//$QM//ITNAME//SQM 
endif; 


IF ITOA NE BLANK 
THEN SE=' ITOA "//8QM//ITOA//$QM 
endif; 


IF ITOASK NE BLANK 
THEN $E=' ITOASK '//$QM//ITOASK//$QM 
endif; 


IF ITOUR NE BLANK 
THEN SE=' ITOUR "//$QM//ITOUR/ /$QM 
endif; 


IF ITRANS NE BLANK 
THEN $E=' ITRANS '//$QM//ITRANS//$QM 
endif; 


IF IVET NE BLANK 
THEN SE=' IVET "//$QM//IVET//$QM 
endif; 


IF IWGIE NE BLANK 
THEN $E=' IWGIE "//$QM//IWGIE//$QM 
endif; 


IF SAFF NE BLANK 
THEN $E=' SAFF '//$QM//SAFF//$QM 
endif; 


IF SANF NE BLANK 
THEN $SE=' SANF '//SQM//SANF//S$QM 
endif; 


IF SANO NE BLANK 
THEN $E=' SANO "//$QM//SANO//$QM 
endif; 


IF SAPNTE NE BLANK 
THEN SE=' SAPNTE '//$QM//SAPNTE/ /$QM 
endif; 


IF SCEIL NE BLANK 
THEN $SE=' SCEIL "//8QM//SCEIL//$QM 
endif; 


IF SDEVC NE BLANK 
THEN $E=' SDEVC '//$QM//SDEVC//SQM 
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endif; 


IF SDOB NE BLANK 
THEN SE=' SDOB '//S$QM//SDOB//$QM 
endif; 


IF SDOG NE BLANK 
THEN SE=' SDOG '//SQM//SDOG//$QM 
endif; 


IF SGR NE BLANK 
THEN SE=' SGR '//S$QM//SGR//SQM 
endif; 


IF SLEI NE BLANK 
THEN SE=' SLEI '//S$QM//SLEI//SQM 
endif; 


IF SNAMEOR NE BLANK 
THEN $E=' SNAMEOR '//$QM//SNAMEOR//$QM 


endif; 


IF SPAYB NE BLANK 
THEN SE=' SPAYB '//SQM//SPAYB//$QM 
endif; 


IF SPGVT NE BLANK 
THEN SE=' SPGVT '//SQM//SPGVT//SQM 
endif; 


IF SPROJNO NE BLANK 
THEN SE=' SPROJNO '//SQM//SPROJNO//SQM 
endif; 


IF SRTMT NE BLANK 
THEN SE=' SRTMT '//SQM//SRTMT//SQM 
endif; 


IF SSALARY NE BLANK 
THEN SE=' SSALARY '//5QM//SSALARY//$QM 
endif; 


IF SSCD NE BLANK 
THEN SE=' SSCD '//SQM//SSCD//$QM 
endif; 


IF SSCH NE BLANK 
THEN SE=' SSCH '//SQM//SSCH//$QM 
endif; 


IF SSERIAL NE BLANK 


THEN SE=' SSERIAL '//SQM//SSERIAL//$QM 
endif; 
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IF SSFN NE BLANK 
THEN SE=' SSFN '//SQM//SSFN//SQM 
endif; 


IF SSTEP2 NE BLANK 
THEN SE=' SSTEP2 '//SQM//SSTEP2//SQM 
endif; 


IF STOUR NE BLANK 
THEN SE=' STOUR '//SQM//STOUR//$QM 


endif; 


endproc BLDSTMT 


DEC SSNCHG 

CSIGN Input value from disk to check for SSN Change 
OLD old side of CSIGN 

NEW new side of CSIGN 

$C statement to change DL/ID (SSNOR) 

SE part of statement for INTERFACE record 


enddec SSNCHG 


PROC SSNCHG 
IF CSIGN NE BLANK 
THEN 
OLD=$SBF(CSIGN,0,1,'*') 
NEW=SSBF(CSIGN,1,1,'*') 
SE=' CSIGN '//SQM//CSIGN//$QM 


IF SSBF(OLD,0,1) NE '$' and $SBF(NEW,0,1) NE '$' 
THEN $C=FILE//$QM//OLD//$QM//' TO '// 
$QM//NEW/ / SQM 


endif; 
CHANGE &(S$C) 
$C = BLANK 


endif; 
endproc SSNCHG 


DEC ADDREC 
SA all values to be added 
$C all values to be changed 
$D all values to be deleted 
LVi current array level 
SE all values to be added to INTERFACE 
FILE file changes are to be applied to 
STMT SEPCODE and SEPDTE for PRIMSEP add only 
STMTS concatenation of array values for execution 


enddec ADDREC 


PROG ADDREC 
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IF $C NE BLANK 
THEN 
LVL = 1 
STMTS = 'FOR '//FILE//' CHANGE ' 
DO UNTIL LVL GT $CM 
STMTS = STMTS//S$C(LVL) 
LVL = LVL + 1 
enddo; 


&STMTS (execute change statememt) 


S$C=BLANK, STMTS=BLANK 
endif; 


IF $A NE BLANK or STMT NE BLANK 
THEN 
LVL = 1 
STMTS = 'FOR '//FILE//' ADD ' 
DO UNTIL LVL GT SAM 
STMTS = STMTS//SACLVL) 
LVL = LVL + 1 
enddo; 


&STMTS &STMT (execute add statement) 


SA=BLANK, STMTS=BLANK 
endif; 


IF $D NE BLANK AND ITOA NE ‘'2ZZ' 
THEN 
LVL = 1 
STMTS = 'FOR '//FILE//' DELETE ' 
DO UNTIL LVL GT $DM 
STMTS = STMTS//$D(LVL) 
LVL = LVL + 1 
enddo; 


&STMTS (execute delete statement) 


SD=BLANK, STMTS=BLANK, STMT=BLANK 
endif; 


IF SE NE BLANK . 
THEN 
LVL = 1 
STMTS = 'ADD INTERFACE '//INTERFACE 
DO UNTIL LVL GT SEM 
STMTS = STMTS//SE(LVL) 
LVL = LVL + 1 
enddo; 
&STMTS (update INTERFACE file) 


SE=BLANK, STMTS=BLANK 
endif; 
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DEC ADDNEW 
SA all values to be added 
NEWREC flag to designate new record 


ISIGN INPUT value from disk containing record DL/ID 
enddec ADDNEW 
PROC ADDNEW 


IF $A NE BLANK 
THEN 
IVE = 4 
STMTS = 'ADD NEW PERSIGN '//SQM//ISIGN//$QM 
DO UNTIL LVL GT SAM 
STMTS = STMTS//SAC(LVL) 
LVL = LVL + 1 


enddo; 
&STMTS (add new PERSIGN record) 
SA=BLANK, STMTS=BLANK 

endif; 

NEWREC = 'NO' 


endproc ADDNEW 

DEC NEWSEP 
FILE value received in READREC 'PERSIGN' 
ISIGN value received on input 

enddec NEWSEP 

PROC NEWSEP 
FOR &FILE '&ISIGN' MOVE REPLACE TO PRIMSEP 
DELETE &FILE '&ISIGN' 
FILE = 'PRIMSEP' 


endproc NEWSEP 
endproc PRCHGLOAD 


4.3.5 PRCATRSF - TRANSFER COMPONENT ACCESS 


4.3.5.1 PURPOSE 


When an employee has been nominated for reassignment consideration to 
another component, the owning component can electronically provide the 
requesting component with the employee's biographic data. If a Compo- 
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nent wants to extend a Purge Date (PRGDTE) to avoid losing a record 
from it's access, that Component must use the PRACCUPDT (Access Up- 
date) menu to change the PRGDTE. See flow diagram in Figure 9 of the 
Appendix. 


4.3.5.2 GENERAL INFORMATION 


Proc Name : PRCATRSF 
Language Used: GIM POL 
Initiated By : Component owning the employee 
Input : Menu parameters 
SSNOR of transferring employee 
SYSMAN2 Signon ORG 
PRGDTE (Purge Date) 
Output : The SSNOR will be copied from one 
SEGACCESS file to another. 


4.3.5.3 FUNCTIONAL DESCRIPTION 


The PRCATRSF procedure is used by one component to pass an employee's 
SSNOR to another component, thus creating a link to the employee's bi- 
ographic data. This will be done when that employee is being nominat- 
ed for an assignment to another component or transferred temporarily 
to the other component. The sending component should enter a Purge 
Date. If the employee is actually assigned to the receiving office, 
the Purge Date will be removed by an entry in the HRS2 INTERFACE file 
via the PRCAUPDT procedure. If the employee is not reassigned, the 
entire entry made for the employee in the receiving office's file will 
be removed by the PRNTEPRG procedure. The SEGACCESS file with the use 
of Security update keys will allow the component owning the record to 
delete an SSNOR passed in error to another component. Access to this 
procedure will be controlled through a key in the SYSMAN2 file. 


NOTE: If Access is required to an official record and no 
ownership has been established in PRIM for that 


record, the component must request the PRIM Data 
Base Manager to transfer the record. 


4.3.5.4 INPUT 


This procedure will utilize the following menu which will be stored in 
the MENU-FORMATS file: 


E PRCATRSF (Component Access Transfer) 


ACTION: _ (A) ADD (D) DELETE (X) EXIT 
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SSNOR/STATUS: _ x - = 
STATUS: A - Active S- Separated 
SYSMAN2 PURGE DATE SYSMAN2 PURGE DATE 
MENU ITEM DESCRIPTION 
(R) ACTION: Action (A,D,X) (LAO1) 
(R) SSNOR: Social Security Number (LNO9) 
(R) STATUS: Active or Separated Employee (LAO1) 
(R) SYSMAN2: ORG Receiving Employee Info (LAQ6) 
(0) PURGE DATE: Purge Date (YYMMDD) (LNO6) 


4.3.5.5 OUTPUT 


If Action = 'x' 
then - exit the procedure. 
endif; 


If Purge Date = blank 
then - create PRGDTE (current date + 90) 
endif; 


If Action = 'A' or 'D' and null SSNOR, STATUS, and/or null SYSMAN2 
then - issue error message (Required fields must be present) 
endif; 


If Action = 'A' and present SSNOR, STATUS and SYSMAN2 


then - use the SYSMAN2 Signon ORG to verify ownership (service 
designation on record EQ SD field of SELECTION Criteria). 
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If any menu STATUS = ‘A’ 
then - Build add statement for each active SYSMAN2 entry 
- Add SSNOR, and PRGDTE to each SEGACCESS segment as 
designated by SYSMAN2 entry(ies) on menu. Active 
SSNOR(s) will be added to SYSMAN2+A 


EX: Add (SYSMAN2+A) ' ' PRGDTE ' : 
endif; 


If any menu STATUS = 'S' 
then - Build add statement for each separated SYSMAN2 entry 
- Add SSNOR, and PRGDTE to each SEGACCESS segment as 
designated by SYSMAN2 entry(ies) on menu. Separated 
SSNOR(s) will be added to SYSMAN2+S 


EX: Add (SYSMAN2+S) ' ' PRGDTE ' : 
endif; 
endif; 


If Action = 'D' and present SYSMAN2 on menu NE SYSMAN2 Signon ORG 
then - Use the SYSMAN2 Signon ORG to verify Ownership (SD on 
record EQ SD field of SELECTION Criteria). 


If any menu STATUS = 'A' 
then - Build delete statements for each SYSMAN2 entry 
on the menu. 
- Delete SSNOR with null SDTE from each active SEGACCESS 
segment as designated by the SYSMAN2 entry(ies) 
on the menu. Active records will be deleted from 
SYSMAN2+A. 


EX: Delete (SYSMAN2+A) ' ‘ when null SDTE. 
endif; 


If any menu STATUS = 'S' 
then - Build delete statements for each SYSMAN2 entry 
on the menu. 

- Delete SSNOR with null SSDTE from each separated 
SEGACCESS segment as designated by the SYSMAN2 
entry(ies) on the menu. Separated records will be 
deleted from SYSMAN2+S. 


EX: Delete (SYSMAN2+S) ' ras when null SSDTE. 
endif; 
endif; 


4.3.5.6 GENERAL PROGRAM SPECIFICATIONS 


A component can transfer an employee's record if the component owns 
that record. Ownership is valid if the SD of the record equals the SD 
in the components SELECTION Criteria (SD is first segment of Cri- 


Approved Fa Releaas FPR RRR RIN BRP 9oe99R000200060006;4 


Approved’Por Relies Gos i862 4 cIiAERDPS3-00893R600260660066-1 


teria). The initiating component is determined by the Signon ORG 
(SUNAME1L). 


4.3.5.7 DETAILED PROGRAM SPECIFICATIONS 


DEC PRCATRSF 


BLANK value | '' 

ERRSW value ' ' 

SLVL value 11 (SYSMAN2 level) 

SWCH value 'OFF' 

SA single dimensional array 
$A(2) area containing Action 


$A(3) 1st SSNOR 

SA(4) Status for $A(3) 

$A(5) 2nd SSNOR 

$A(6) Status for $A(5) 

SA(7) 3rd SSNOR 

$A(8) Status for $A(7) 

SA(9) 4th SSNOR 

$A(10) Status for $A(9) 

$A(11) lst SYSMAN2 

$A(12) Purge date for Ist SYSMAN2 
$A(13) 2nd SYSMAN2 

$A(14) Purge date for 2nd SYSMAN2 
$A(15) 3rd SYSMAN2 

$A(16) Purge date for 3rd SYSMAN2 
$A(17) 4th SYSMAN2 

$A(18) Purge date for 4th SYSMAN2 
$A(19) 5th SYSMAN2 

$A(20) Purge date for 5th SYSMAN2 
$A(21) 6th SYSMAN2 

$A(22) Purge date for 6th SYSMAN2 
$A(23) 7th SYSMAN2 

$A(24) Purge date for 7th SYSMAN2 
$A(25) 8th SYSMAN2 

$A(26) Purge date for 8th SYSMAN2 
$A(27) 9th SYSMAN2 

$A(28) Purge date for 9th SYSMAN2 
$A(29) 10th SYSMAN2 

$A(30) Purge date for 10th SYSMAN2 
$A(31) llth SYSMAN2 

$A(32) Purge date for llth SYSMAN2 
$A(33) 12th SYSMAN2 

$A(34) Purge date for 12th SYSMAN2 
$A(35) 13th SYSMAN2 

$A(36) Purge date for 13th SYSMAN2 
$A(37) 14th SYSMAN2 

$A(38) Purge date for 14th SYSMAN2 
$A(39) 15th SYSMAN2 

$A(40) Purge date for 15th SYSMAN2 
$A(41) 16th SYSMAN2 

$A(42) Purge date for 16th SYSMAN2 enddec PRCATRSF 


Approved FOG RElSA8e- 2999/08/02 « GIARDRRE-P0893R00020006000651 


Approved Por Rulease! 3605 dsyO22NGIALRBP8S_I0893R00020006000834 


PROC PRCATRSF 
READ menu into $A arrays 


IF $A(2) EQ 'x' 
THEN - RUN EXIT-FOR-NOMORE 
endif; 


IF $A(2) EQ 'A' or 'D' and 
(($A(3) NE BLANK and $A(4) EQ BLANK) or 
($A(3) EQ BLANK and $A(4) NE BLANK) or 
($A(5) NE BLANK and $A(6) EQ BLANK) or 
($A(5) EQ BLANK and $A(6) NE BLANK) or 
($A(7) NE BLANK and $A(8) EQ BLANK) or 
($A(7) EQ BLANK and $A(8) NE BLANK) or 
($A(9) NE BLANK and $A(10) EQ BLANK) or 
($A(9) EQ BLANK and $A(10) NE BLANK)) 

THEN - PRINT message that both SSNOR and STATUS 

must be entered 
- RUN EXIT-FOR-RESTART 
endif; 


DO UNTIL SWCH EQ 'ON' or SLVL EQ 43 
IF SA(SLVL) EQ BLANK 
THEN - SLVL = SLVL + 2 
ELSE - SWCH EQ 'ON' 
endif; 
enddo; 


IF SWCH EQ 'OFF' 
THEN - PRINT message stating at least one 
SYSMAN2 value must be entered 
~ RUN EXIT-FOR-RESTART 
endif; 


IF $A(2) EQ 'A' 

THEN - RUN VERIFYCASE 
IF ERRSW EQ BLANK 
THEN - RUN SSNCASE 

- RUN SDCASE 
endif; 
IF ERRSW EQ BLANK 
THEN - RUN ADDCASE 
endif; 
RUN EXIT-FOR-MORE 
endif; 


IF $A(2) EQ 'D' 

THEN - RUN VERIFYCASE 
IF ERRSW EQ BLANK 
THEN - RUN SSNCASE 

- RUN SDCASE 
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endif; 

IF ERRSW EQ BLANK 

THEN - RUN DELETECASE 

endif; 

RUN EXIT-FOR-MORE 
endif; 


DEC VERIFYCASE 


SEGMENT value SUNAME1 

CRITERIA temporary buffer area 

SB single dimensional arrays 
SBM count of $B arrays 

SW current value 


enddec VERIFYCASE 
PROC VERIFYCASE 


(execute statement to acquire SD values from the 
SELECTION segment for the initiating ORG) 
FOR &SEGMENT ACQUIRE SLCRITERIA 


DO for all Criteria lines in the file 
GET SLCRITERIA (use GFAV and GNAV) 
CRITERIA = SW 
$B = SSBF(CRITERIA,O,1,'*') 

enddo; 


IF $BM EQ 0 (no SD value found) 
THEN - PRINT message that initiator does not 
have ownership of record 
- ERRSW = '1' 
endif; 
endproc VERIFYCASE; 


DEC SSNCASE 
SA single dimensional array 

$A(2) area containing Action 
$A(3) lst SSNOR 

SA(4) Status for $A(3) 

SA(5) 2nd SSNOR 

$A(6) Status for S$A(5) 

$A(7) 3rd SSNOR 

$AC8) Status for $A(7) 

SA(9) 4th SSNOR 

$A(10) Status for $A(9) 


SB single dimensional arrays 
$C value ' ' 

buffer area for active SSNORs 
sD value ' ' 


buffer area for separated data 
enddec SSNCASE 


PROC SSNCASE 
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IF sA(4) EQ ‘A’ 
THEN - add SA(3) to active SSNOR statement 
- $C = §C//SQM//S$A(3)//SQM 


endif; 


IF $A(4) EQ 'S' 
THEN - add $A(3) to separated SSNOR statement 
~ $D = $D//$QM//$A(3)//$QM 


endif; 


IF $A(6) EQ 'A' 
THEN - add SA(5) to active SSNOR statement 
- $C = $C//$QM//$A(5)//SQM 


endif; 


IF $A(6) EQ 'Ss' 
THEN - add $A(5) to separated SSNOR statement 
- $D = $D//S$QM//S$A(5)//$QM 


endif; 


IF $A(8) EQ ‘A' 
THEN - add SA(7) to active SSNOR statement 
- $C = §C//$QM//$A(7)//$QM 


endif; 


IF $A(8) EQ 'S' 
THEN - add $A(7) to separated query statement 
- $D = $D//$QM//$A(7)//$QM 


endif; 


IF $A(10) EQ ‘A' 
THEN - add $A(9) to active query statement 
~ $C = $C//§$QM//$A(9)//SQM 


endif; 


IF $A(10) EQ 'S' 
THEN - add $A(9) to separated SSNOR statement 
- $D = $D//$QM//$A(9)//SQM 


endif; 


endproc SSNCASE 


DEC SDCASE 
BLANK value ' ' 
BLVL value 1 
ERRSW value ' ' 
SB single dimensional arrays 
SBM count of used $B arrays 
$c buffer area containing active SSNORs 
SD buffer area containing separated SSNORs 
SDSCAN value ' 


temporary buffer area for SD value 


enddec sdcase 


PROG SDCASE 
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DO UNTIL BLVL EQ SBM 
(build SD scan portion of statement) 
SDSCAN = SDSCAN//' WITH $SCAN(PERSD, ' 
//$QM//$B(BLVL)//$QM 
IF BLVL NE SBM 
THEN - BLVL = BLVL + 1 
- SDSCAN = SDSCAN//' OR ' 
endif; 
enddo; 


IF $C NE BLANK 
THEN - (scan for SD value in PERSIGN) 
FOR PERSIGN &($C) &SDSCAN ACQUIRE PERSD 
IF NO VALUE ACQUIRED (SD does not match) 
THEN - PRINT message stating initiator does not 
have ownership of record 
- VOPRINT &(SC) 


endif; 
endif; 


IF §D NE BLANK 
THEN - (scan for SD value in PRIMSEP) 
FOR PRIMSEP &($D) &SDSCAN ACQUIRE PERSD 
IF NO VALUE ACQUIRED (SD does not match) 
THEN - PRINT message stating initiator does not 
have ownership of record 
- VOPRINT SD 
endif; 
endif; 
endproc SDCASE 


DEC ADDCASE 


BLANK value ' ' 

$C buffer area containing active SSNORs 
$D buffer area containing separated SSNORs 
$A(11) lst SYSMAN2 

$A(12) Purge date for lst SYSMAN2 

$A(€13) 2nd SYSMAN2 

$A(14) Purge date for 2nd SYSMAN2 

$A(15) 3rd SYSMAN2 

$A(16) Purge date for 3rd SYSMAN2 

$A(17) 4th SYSMAN2 

$A(18) Purge date for 4th SYSMAN2 

$A(19) 5th SYSMAN2 

$A(20) Purge date for 5th SYSMAN2 

$A(21) 6th SYSMAN2 

$A(22) Purge date for 6th SYSMAN2 

$A(23) 7th SYSMAN2 

$A(24) Purge date for 7th SYSMAN2 

$A(25) 8nd SYSMAN2 

$A(26) Purge date for 8th SYSMAN2 

$A(27) 9rd SYSMAN2 
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$A(28) Purge date for 9th SYSMAN2 

$A(29) 10th SYSMAN2 

$A(30) Purge date for 10th SYSMAN2 

$A(31) llth SYSMAN2 

$A(32) Purge date for llth SYSMAN2 

$A(33) 12th SYSMAN2 

$A(34) Purge date for 12th SYSMAN2 

$A(35) 13th SYSMAN2 

$A(36) Purge date for 13th SYSMAN2 

$A(37) 14th SYSMAN2 

$A(38) Purge date for 14th SYSMAN2 

$A(39) 15th SYSMAN2 

$A(40) Purge date for 15th SYSMAN2 

$A(41) 16th SYSMAN2 

$A(42) Purge date for 16th SYSMAN2 

SLVL value 11 (SYSMAN2 array level) 
PURGE buffer area for current purge date 
TPRGDTE SODATE (GIM current date) 

TSTMT buffer containing verb and file name 


enddec ADDCASE 
PROG ADDCASE 


IF $C NE BLANK 
THEN - (build and execute add statement for each 
SYSMAN2+A) 
DO UNTIL SLVL EQ 43 
IF SAC(SLVL) NE BLANK 
THEN - (SYSMAN2+A is file for add statement) 
IF SA(SLVL+1) NE BLANK 


THEN - PURGE = ' PRGDTE "//$QM//SA(SLVL+1) //$QM 
ELSE - PURGE = ' PRGDTE "//S8QM//TPRGDTE/ /$QM 
endif; 


TSTMT = 'ADD '//SA(SLVL)//'A' 


DO execute created statement 
&TSTMT &($C) &PURGE 
enddo; 
endif; 
SLVL = SLVL + 2 
enddo; 
endif; 


SLVL = 11 


IF SD EQ BLANK 
THEN - (build and execute add statement for all 
SYSMAN2+S ) 
DO UNTIL SLVL EQ 43 
IF SAC(SLVL) NE BLANK 
THEN - (SYSMAN2+S is file for add statement) 
IF SACSLVL+1) NE BLANK 
THEN - PURGE = ' SPRGDTE "//$QM//SACSLVL+1)//$QM 
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ELSE - PURGE = ' SPRGDTE '//SQM//TPRGDTE//SQM 
endif; 


TSTMT = ‘ADD '//SA(SLVL)//'S' 


DO execute created statement 
&TSTMT &($D) &PURGE 
enddo; 
endif; 


SLVL = SLVL + 2 
enddo; 
endif; 
endproc ADDCASE 


DEG DELETECASE 


BLANK value ' ' 

$c buffer area containing active SSNORs 
$D buffer area containing separated SSNORs 
$A(11) Ist SYSMAN2 

$A(12) Purge date for lst SYSMAN2 
$A(13) 2nd SYSMAN2 

$A(14) Purge date for 2nd SYSMAN2 
$A(15) 3rd SYSMAN2 

$A(16) Purge date for 3rd SYSMAN2 
$A(17) 4th SYSMAN2 

$A(18) Purge date for 4th SYSMAN2 
$A(19) 5th SYSMAN2 

$A(20) Purge date for 5th SYSMAN2 
$A(21) 6th SYSMAN2 

$A(22) Purge date for 6th SYSMAN2 
$A(23) 7th SYSMAN2 

$A(24) Purge date for 7th SYSMAN2 
$A(25) 8nd SYSMAN2 

$A(26) Purge date for 8th SYSMAN2 
$A(27) 9rd SYSMAN2 

$A(28) Purge date for 9th SYSMAN2 
$A(29) 10th SYSMAN2 

$A(30) Purge date for 10th SYSMAN2 
$A(31) lith SYSMAN2 

$A(32) Purge date for 1lith SYSMAN2 
$A(33) 12th SYSMAN2 

$A(34) Purge date for 12th SYSMAN2 
$A(35) 13th SYSMAN2 

$A(36) Purge date for 13th SYSMAN2 
SA(37) 14th SYSMAN2 

$A(38) Purge date for 14th SYSMAN2 
$A(39) 15th SYSMAN2 

$A(40) Purge date for 15th SYSMAN2 
$A(41) 16th SYSMAN2 

SA(42) Purge date for 16th SYSMAN2 
SLVL value 11 (SYSMAN2 array level) 
TSTMT buffer containing verb and file name 


enddec DELETECASE 
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PROC DELETECASE 


IF $C NE BLANK 
THEN (build and execute delete statement for each 
SYSMAN2+A) 
DO UNTIL SLVL EQ 43 
IF SACSLVL) NE BLANK 
THEN (SYSMAN2+A is file for delete statement) 
TSTMT = ‘DELETE '//SAC(SLVL)//'A' 
DO execute created statement to remove SSNORs 
from file 
&TSTMT &(S$C) 
enddo; 
endif; 


SLVL = SLVL + 2 
enddo; 
endif; 
SLVL = 11 
IF $D NE BLANK 
THEN (build and execute delete statement for each 
SYSMAN2+S) 
DO UNTIL SLVL EQ 43 
IF SACSLVL) NE BLANK 
THEN (SYSMAN2+S is file for delete statement) 
TSTMT = 'DELETE '//SA(SLVL)//'S' 
DO execute created statement to remove SSNORs 
from file 
&TSTMT &(S$D) 
enddo; 
endif; 


SLVL = SLVL + 2 
enddo; 
endif; 
endproc DELETECASE 
PROG EXIT-FOR-RESTART 


IF $A(2) EQ BLANK 
THEN - RELOCATE cursor to Action (*RL2) 
endif; 


IF $A(3) EQ BLANK and $A(4) NE BLANK 
THEN - RELOCATE cursor to $A(3) (*RL3) 
endif; 


IF $A(4) EQ BLANK and $A(3) NE BLANK 
THEN - RELOCATE cursor to $A(4) (*RL4) 
endif; 


IF $A(5) EQ BLANK and $A(6) NE BLANK 


THEN - RELOCATE cursor to $A(5) (*RL5) 
endif; 
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IF $A(6) EQ BLANK and $A(5) NE BLANK 
THEN - RELOCATE cursor to $A(6) (*RL6) 
endif; 


IF $A(7) EQ BLANK and $A(8) NE BLANK 
THEN - RELOCATE cursor to $A(7) (*RL7) 
endif; 


IF $A(8) EQ BLANK and $A(7) NE BLANK 
THEN - RELOCATE cursor to $A(8) (*RL8) 
endif; 


IF $A(9) EQ BLANK and $A(10) NE BLANK 
THEN - RELOCATE cursor to $A(9) (*RL9) 
endif; 


IF $A(10) EQ BLANK and $A(9) NE BLANK 
THEN - RELOCATE cursor to $A(10) (*RL10) 
endif; 


IF SWCH EQ 'OFF' 
THEN - RELOCATE cursor to first SYSMAN2 (*RL11) 
endif; 

endproc EXIT-FOR-RESTART 


PROG EXIT-FOR-MORE 


VOPRINT '*C' clears menu 

VOPRINT '*I1,E PRCATRSF' establishes value in $A(1) 
VOPRINT '*+B' big buffer 

VOPRINT '*RL2' relocate cursor to $A(2) 


endproc EXIT-FOR-MORE 


PROC EXIT-FOR-NOMORE 
VOPRINT ‘*-F' exit format mode 
VOPRINT '‘*C' clear entire screen 
endproc EXIT-FOR-NOMORE 
endproc PRCATRSF 


4.3.6 PRNTEPRG - NOT-TO-EXCEED PURGE 


4.3.6.1 PURPOSE 


When an employee's reassignment is anticipated or planned, the receiv- 
ing organization can request that employee's record from the owning 
organization. The owning organization will pass this data via the 
PRCATRSF procedure (Component Access Transfer). A Purge Date must 
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also be passed with the data. If the employee actually transfers, an 
INTERFACE transaction will officially move the individual from one or- 
ganization to another. However, if the employee does not move, the 
PRNTEPRG procedure will be used to purge the record from the Security 
Matrix (SEGACCESS) file of the receiving organization when the Purge 
Date is reached. See flow diagram in Figure 9 of the Appendix. 


4.3.6.2 GENERAL INFORMATION 


Proc Name : PRNTEPRG 

Language Used: GIM POL 

Initiated By : Monthly process by DBCC 
Frequency of 


Execution : Monthly 
Input : System Date 
Output : List of SYSMAN2, SSNOR, PRGDTE, 


purged data, 
(PRNTEPRG Report) 


4.3.6.3 FUNCTIONAL DESCRIPTION 


The PRNTEPRG procedure will be used to purge records from the 
SEGACCESS files. The various components can purge records using the 
PRCATRSF (limited use) or PRACCUPDT procedures. However, if this is 
not done the PRNTEPRG procedure will purge all records with a Purge 
Date LE to the System Date. When a SEGACCESS segment has a Purge Date 
LE to the System Date a purge statement will be produced and executed 
for that segment. 


EX: For (SEGACCESS Active segment) with PRGDTE LE 
"System Date' delete. 


For (SEGACCESS Separated segment) with PRGDTE LE ‘System Date’ 
with present PRIMSEPDTE delete. 


4.3.6.4 INPUT 


No menu will be required for this procedure. The procedure will be 
initiated by issuing the following command: 


E PRNTEPRG 
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4.3.6.5 OUTPUT 


This procedure will use the following statement to purge all SEGACCESS 
Segments of the SSNOR with a Purge Date LE System Date. 


EX: For (SEGACCESS Active segment) with PRGDTE LE ' (System 
Date)' delete. 


For (SEGACCESS Separated segment) with PRGDTE LE ‘(System 
Date)' with present PRIMSEPDTE delete. 


This procedure will also produce the PRNTEPRG Report which lists all 
data purged. The report will be produced for the PRIM Data Base Man- 
ager via REPORTW (See Report Section). xxx PRNTEPRG 


4.3.6.6 GENERAL PROGRAM CONSIDERATIONS 


This procedure will use the REPORTW verb against each SEGACCESS active 
and separated segment (for all Component Signon ORGs) to produce a 
2-part report for each Component. The report will list all data to be 
purged from the Component's SEGACCESS file (SYSMAN2+A (active), 
SYSMAN2+S (separated)). After the report has been produced, a delete 
statement will be issued against the active and separated segments to 
purge the data. 


The file name and the Text field of the segments will be acquired 


from the SELECTION file which also has a segment for each Component 
SYSMAN2. 


4.3.6.7 DETAILED PROGRAM SPECIFICATIONS 


DEG PRNTEPRG 


SA single dimensional array to hold SELECTION IDs 

SAM count of filled $A arrays 

ALVL level of SA array 

SDATE value current date YYMMDD 

$B single dimensional array to hold SELECTION TEXT 

SBM count of filled $B arrays 

IDENT used to store 'type of segment’ for report 
header 

INSRZ1 used to hold organizational text for report 
header 

RPTCNT count of reports produced (2 per Signon ORG) 

STMT1A used to build main body of the format 

STMT1B statement before specifics pertaining to the 

STMT1C organization is added. 

STMT1D 

STMT2 used to store finished format statement. 
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STMT3 used to hold deletion statement. 
enddec PRNTEPRG PROC PRNTEPRG 


GET all SELECTION DLIDs through master 
FOR SELECTALL ACQUIRE 


DO for all SELECTION records 


GET DLID (use NEXT) 
SA = SW 

GET SLTEXT (use GFAV) 
$B = SW 


IF $BM NE SAM 
THEN - $B = $A(ALVL)//' NO TEXT AVAILABLE' 
endif; 

enddo; 


Build main body of format statements. Leave places for 
inserting organizational name, and report type. 


DO UNTIL ALVL EQ SAM 
RPTCNT = 1 
DO WHILE RPTCNT LE 2 


IDENT = Type of report being processed. 
First pass - Active segment 
Second Pass - Separated segment 
INSRZ1 = Filename (Value from $A concatinated with 
'A' in first pass, and with 'S' in second pass) 
Build format statement 
FORMAT P'60,131' H'$61,SECRET' 
"Report of data requiring purging 
from the //IDENT// for //S$B(ALVL)' 
F '$61,SECRET'; FOR //INSR2Z1// 
WITH SAPRGDTE LE //SDATE// 
REPORTW SSNOR = //INSRZ1// : 'L9,,A1' 
NAME = PERNANEOR : 'L20' 
SEGMENT-ACCESS-DATE = SADTE : 'L19' 
PURGE-DATE = SAPRGDTE : 'L10' 


FOR //INSRZ1// WITH SAPRGDTE LE '&SDATE' 


DELETE 
RPTCNT = RPTCNT + 1 
enddo; 
ALVL = ALVL + 1 
enddo; 


endproc PRNTEPRG 
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4.3.7 PRINTPRG - INTERFACE PURGE 


4.3.7.1 PURPOSE 


This procedure will be used to purge interface data from the PRIM 
INTERFACE file. When INTERFACE data is received from HRS2, the 
PRCHGLOAD procedure is used to analyze the data, make necessary up- 
dates to the PRIM PERSIGN or PRIMSEP file, create an INTERINDX record 
with a purge date (INPURGE = RUNDATE + 30), and add a record to the 
PRIM INTERFACE file. This procedure will scan the PRIM INTERINDX file 
and delete the INTERINDX and INTERFACE records with a purge date 
(INPURGE) LE the System Date. See flow diagram in Figure 10 of the 
Appendix. 


4.3.7.2 GENERAL INFORMATION 


Proc Name : PRINTPRG 
Language Used: GIM POL 
Frequency Of 


Execution : Monthly 
Initiated By : Monthly process by DBCC 
Input : System Date 

INTERINDX 


INTERLINK (Di) 
INPURGE (D2) 

Output : All items associated with the purge 
date (INPURGE) will be removed from 
the INTERINDX and PRIM INTERFACE 
files. 


4.3.7.3 FUNCTIONAL REQUIREMENTS 


When data is added to the PRIM INTERFACE file, a link record will also 
be created in the INTERINDX file. The INTERINDX file will use the 
SSNOR as the DL/ID and any INTERFACE actions associated with that 
SSNOR will be entered by INTERFACE DL/ID (RUNDATE*TIME*STMT) into the 
INTERLINK field. The Purge Date (INPURGE) will be entered as D2s un- 
der INTERLINK. 


4.3.7.4 INPUT 


No menu will be required for this procedure. The following statement 
will initiate the procedure: E PRINTPRG 
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4.3.7.5 OUTPUT 


The PRINTPRG procedure will purge the PRIM INTERFACE file data with 
the following statement: 


FOR INTERFACE WITH INPURGE NE 'system date' DELETE INTERFACE# 


The INTERINDX file data will be analyzed and purged using the follow- 
ing decision formula: 


If INTERINDX SSNOR has only one D1 and INPURGE LE System Date 
or has many D1s all with INPURGE LE System Date 

then - delete INTERINDX record 

endif; 


If INTERINDX SSNOR has more than one D1 and some INPURGE LE System 
Date ; 


then - delete INTERLINK when INPURGE LE System Date 
endif; 


4.3.7.6 GENERAL PROGRAM CONSIDERATIONS 


The PRINTPRG procedure will delete INTERFACE records that are 30 days 
old. A span from INTERFACE to the INTERINDX file will be used to de- 
lete the INTERFACE record when the INTERINDX INPURGE date has been 
reached or passed. After the INTERFACE records are deleted, the asso- 
ciated INTERINDX record will also be deleted. 


4.3.7.7 DETAILED PROGRAM SPECIFICATIONS 


DEC PRINTPRG 


BLANK value ' '' 

DATE value current date YYMMDD 

GDATE value current date - GIM format NNNN 

(N denoting a numeric character) 
INTERINDX 
INPURGE used via Span from INTERFACE 

DCNT value 0 (count of items to delete) 

DTECNT value 0 (count of dates checked) 

ID buffer for current INTERINDX DLID 

INDTE INPURGE date being checked 

LNK INTERLINK of INPURGE being checked 

SA buffer area to contain all delete 
statements to be executed 

ALVL level of $A array 

SAM count of used $A arrays 

DLNK INTERLINKs to delete 


enddec PRINTPRG 


PROC PRINTPRG 
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SCAN INTERINDX file for INPURGE LE DATE 


FOR INTERINDX WITH INPURGE LE ‘&DATE' 
ACQUIRE 


If no data found 
THEN print message (no data found for purge) 
EXIT PRINTPRG 


DO for all records found in SCAN 
GET record DLID 
ID = $QM//$W//$QM 
DO for all INTERLINK values for DLID 
GET INTERLINK (use GFAV or GNAV) 


LNK = $W 
GET INPURGE (use GCAV) 
INDTE = $W 
IF INDTE LE DATE 
THEN 
DO (INTERLINK and INTERFACE should be deleted) 
DLNK = DLNK//$QM//LNK//$QM 
DCNT = DCNT + 1 
enddo; 
endif; 
DTECNT = DTECNT + 1 
enddo; 


IF DTECNT EQ DCNT 

THEN (entire INTERINDX record can be deleted) 
$A = 'DELETE INTERINDX '//ID 

ELSE (only INTERLINK in DLNK can be deleted) 
$4 = 'DELETE INTERINDX '//ID//' INTERLINK '//DLNK 


IF DLNK NE ' ' 

THEN (INTERFACE record may be deleted) 
$A = 'DELETE INTERFACE '//DLNK 

ELSE; 

endif; 


ID = BLANK 
LNK = BLANK 
INDTE = BLANK 


DO UNTIL ALVL EQ $A (execute statement in $A array) 
DO &(SAC(ALVL)) 
enddo; 
ALVL = ALVL + 1 
enddo; 
endproc PRINTPRG 
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4.3.8 | PRACCUPDT - ACCESS UPDATE 


4.3.8.1 PURPOSE 


This procedure will be used by the various components to make changes 
to their SEGACCESS segments. The components will be able to change 
PRGDTE, add SSNORs needed to link to their component file (Release 2), 
and delete SSNORs which were passed from another component but are no 
longer needed. See flow diagram in Figure 10 for the Appendix. 


4.3.8.2 GENERAL INFORMATION 


Proc Name : PRACCUPDT 
Language Used: GIM POL 
Frequency Of 


Execution : Random per component need 
Initiated by : Individual Components 
Input : SSNOR 

STATUS 

Purge Date 

OWNCODE (Release 2) 
Output : Deletes or adds PRGDTE 


and/or SSNOR to file 


4.3.8.3 FUNCTIONAL REQUIREMENTS 


This procedure will be used by a component to update it's personal 
SEGACCESS files. Because the SEGACCESS file ID is the same as the 
Signon SYSMAN2 ID, this procedure will use the Signon SYSMAN2 to de- 
termine the SEGACCESS file to be updated (SYSMAN2+A for Active, 
SYSMAN2+S for Separated). If a component has received an employee's 
record from another component and wants to change the Purge Date 
(PRGDTE) or delete the record entirely, this procedure will be used. 
If the SSNOR had not been previously entered into the SEGACCESS file 
via the PRCALINK or the PRCATRSF procedure, the component can use 
PRACCUPDT to enter the SSNOR in the file (SYSMAN2+C) used to link to 
their component file. This will allow a component to enter an SSNOR 
on an employee or applicant in their component file but will not allow 
that component access to the Official Data for that SSNOR. 


4.3.8.4 INPUT 


This procedure will utilize the following menu which will be stored in 
the MENU-FORMATS file. 


E PRACCUPDT (Access Update) 
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Action: _ 
(A) Add (C) Change Purge Date (D) Delete (R) Retrieve (X) Exit 


SSNOR STATUS PURGE DATE OWNERSHIP 
(A/S/C) (YYMMDD) 


MENU ITEM DESCRIPTION 


(R) ACTION Action to be done (A,C,D,R,X) (LAO1) 
(R) SSNOR Social Security Number (LAO09) 
(R/O) STATUS Active, Separated, Component (LA01) 


(QO) Purge Date Removal from System (YYMMDD) (LNO6) 


(0) Ownership Ownership of Record (LA01) 


4.3.8.5 OUTPUT 


If Action = 'X' 
then - exit the procedure. 
endif; 


If Action = 'R' and present SSNOR(s) 
then - leave data on menu 

- retrieve data 
endif; 


If Action = 'A', 'C' or 'D' and null SSNOR or null STATUS 
then - error message (SSNOR and STATUS must be entered) 
else - SEGACCESS SYSMAN2+A for Active record 
SEGACCESS SYSMAN2+S for Separated record 
SEGACCESS SYSMAN2+C for Component record 


endif; 
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If Action = 'A' and present SSNOR and STATUS = 'C' 
then - CSDTE = Current Date (generated by procedure) 
- build add statement to add SSNOR(s) to (SYSMAN2+C) 
with SDTE, PRGDTE, and OWNCODE 
endif; 


If Action = 'C' and present SSNOR, STATUS and present Purge Date 
then - build statement to change Purge Date in SEGACCESS file 
SYSMAN2+A PRGDTE (Active) for SSNOR(s) with STATUS = 'A' 
- build statement to change Purge Date in SEGACCESS file 
SYSMAN2+S PRGDTE (Separated) for SSNOR(s) with 
STATUS = 'S' 
- build statement to change Purge Date in SEGACCESS file 
SYSMAN2+C PRGDTE (Component) for SSNOR(s) with 
STATUS = 'C'. If Ownership field present on menu with 
STATUS = 'C' add ownership value to OWNCODE. 
endif; 


If Action = 'D' and present SSNOR and present STATUS 
then - build statement to delete SSNOR(s) with STATUS = 'A' from 
(SYSMAN2+A) when SDTE NE current date (SODATEG) 
- build statement to delete SSNOR(s) with STATUS = 'S' from 
(SYSMAN2+S) when SDTE NE current date ($ODATEG) 
- build statement to delete SSNOR(s) with STATUS = 'C' from 
(SYSMAN2+C) 
endif; 


4.3.8.6 | GENERAL PROGRAM CONSIDERATIONS 


The PRACCUPDT procedure will be used by the Component to extend the 
purge date of SSNORs passed from another Component, extend the purge 
date of an employee's SSNOR who has left that Component, remove the 
SSNOR entirely or add the SSNOR to the Component link segment. Each 
record must be verified before it can be deleted. 


In Release 2, Component files will be added to the PRIM data 
base. Before an SSNOR can be added to a Component's file, it must be 
present in one of the Component's SEGACCESS official data link files 
(SYSMAN2+A or SYSMAN2+S). If the SSNOR is not present in either of 
those files, it must be added to the Component data link file 
(SYSMAN2+C) via the PRACCUPDT procedure. Adds can only be done 
against Component files. SSNOR cannot begin with a '6', '8', '90', 
"91', '92', '95', '96', or '97', 


4.3.8.7 DETAILED PROGRAM SPECIFICATIONS 


DEC PRACCUPDT 


BLANK value ' ' 
SA single dimensional arrays 
$A(2) Action value 
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$A(3) Ist SSNOR 

SA(4) lst SSNOR Status 

SA(5) ist SSNOR Purge Date (SAPRGDTE) 
SA(6) lst SSNOR Ownership Code (SAOWNCODE) 
SA(7) 2nd SSNOR 

SA(8) 2nd SSNOR Status 

SA(9) 2nd SSNOR Purge Date (SAPRGDTE) 


$A(10) 2nd SSNOR Ownership Code (SAOWNCODE) 
$A(11) 3rd SSNOR 
$A(12) 3rd SSNOR Status 
$A(13) 3rd SSNOR Purge Date (SAPRGDTE) 
$A(14) 3rd SSNOR Ownership Code (SAOWNCODE) 
$A(15) 4th SSNOR 
$A(16) 4th SSNOR Status 
$A(17) 4th SSNOR Purge Date (SAPRGDTE) 
SA(18) 4th SSNOR Ownership Code (SAOWNCODE) 
$A(19) 5th SSNOR 
$A(20) 5th SSNOR Status 
$A(21) 5th SSNOR Purge Date (SAPRGDTE) 
$A(22) 5th SSNOR Ownership Code (SAOWNCODE) 
$A(23) 6th SSNOR 
$A(24) 6th SSNOR Status 
$A(25) 6th SSNOR Purge Date (SAPRGDTE) 
$A(26) 6th SSNOR Ownership Code (SAOWNCODE) 

STATSW value established in ADDCASE 

LOCATE value established in CKCASE 

enddec PRACCUPDT 


PROC PRACCUPDT (User Update of Access Date) 
READ menu values into $A single demensional arrays 


IF $A(2) EQ 'X' (Exit the Menu) 
THEN - RUN EXIT-FOR-NOMORE 
endif; 


IF $A(2) EQ BLANK or ($A(2) NE 'A' and $A(2) NE 'C' and 
$A(2) NE 'D' and $A(2) NE 'R') 
THEN - PRINT message stating valid Action required 
- RUN EXIT-FOR-RESTART 
ELSE 
IF $A(3) EQ BLANK and $A(7) EQ BLANK 
and $A(11) EQ BLANK and $A(15) EQ BLANK 
and $A(19) EQ BLANK and $A(23) EQ BLANK) 
THEN - PRINT message stating SSNOR ia a required field 
- RUN EXIT-FOR-RESTART 
endif; 
endif; 


IF $A(2) EQ 'R' (Retrieve current Access Links) 
THEN - RUN CKCASE 

IF LOCATE NE 0 

THEN - RUN EXIT-FOR-RESTART 

endif; 
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- RUN RCASE 
- RUN EXIT-FOR-MORE 


endif; 


IF $A(2) EQ 'A' and ($A(4) EQ 'C' or $A(8) EQ 'C' or 
$A(12) EQ 'C' or $A(16) EQ 'C' or $A(20) EQ 'C' or 
$A(24) EQ 'C') 

THEN - RUN CKCASE 

IF LOCATE NE 0 
THEN RUN EXIT-FOR-RESTART 
ELSE - RUN ADDCASE 
IF STATSW EQ 'ON' 
THEN - RUN EXIT-FOR-RESTART 
ELSE - RUN EXIT-FOR-MORE 


endif; 


endif; 
endif; 


IF $A(2) EQ 'C' (Change Purge Date) 
THEN - RUN CKCASE 

IF LOCATE NE 0 

THEN - RUN EXIT-FOR-RESTART 


endif; 


- RUN CCASE 
- RUN EXCASE 
- RUN EXIT-FOR-MORE 


endif; 


IF $A(2) EQ 'D' (Delete SSNOR if SADTE not Current) 
THEN - RUN CKCASE 

IF LOCATE NE 0 

THEN - RUN EXIT-FOR-RESTART 


endif; 


- RUN DCASE 
- RUN EXCASE 
- RUN EXIT-FOR-MORE 


endif; 


DEC ADDCASE 
STATSW 


STMT 
STMT1 
SEGMENT 
TDATE 
ALVL 
$A(3) 
$A(4) 
$A(5) 
S$A(6) 
$A(7) 
$A(8) 
$A(9) 
$A(10) 
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value 'OFF' 

value 'ON' if STATUS NE 'C' 

buffer area for add statement 

buffer area for lst part of statement 
SUNAME1 

buffer area for date 

value 3 

lst SSNOR 

Ist SSNOR Status 

lst SSNOR Purge Date (SAPRGDTE) 

ist SSNOR Ownership Code (SAOWNCODE) 
2nd SSNOR 

2nd SSNOR Status 

2nd SSNOR Purge Date (SAPRGDTE) 

2nd SSNOR Ownership Code (SAOWNCODE) 
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$A(11) 3rd SSNOR 

$A(12) 3rd SSNOR Status 

$A(13) 3rd SSNOR Purge Date (SAPRGDTE) 
$A(14) 3rd SSNOR Ownership Code (SAOWNCODE) 
$A(15) 4th SSNOR 

$A(16) 4th SSNOR Status 

$A(17) 4th SSNOR Purge Date (SAPRGDTE) 
$A(18) 4th SSNOR Ownership Code (SAOWNCODE) 
$A(19) 5th SSNOR 

$A(20) 5th SSNOR Status 

$A(21) 5th SSNOR Purge Date (SAPRGDTE) 
$A(22) 5th SSNOR Ownership Code (SAOWNCODE) 
$A(23) 6th SSNOR 

$A(24) 6th SSNOR Status 

$A(25) 6th SSNOR Purge Date (SAPRGDTE) 
$A(26) 6th SSNOR Ownership Code (SAOWNCODE) 


enddec ADDCASE 
PROC ADDCASE 
STMT1 = 'ADD '//SEGMENT//'C' (1st part of add statement) 


DO for all SSNORs on menu 
IF SA(ALVL+1) EQ 'C' 
THEN - TDATE = $QM//SODATEA(SDATEG) //SQM 
- STMT=STMT//$QM//SACALVL)//S$QM//' SADTE '/ /TDATE 
IF SACALVL+2) NE BLANK 
THEN - TDATE = $QM//SA(ALVL+2)//SQM 
- STMT=STMT//' SAPRGDTE '//TDATE 
ELSE - TDATE = $QM//SODATEA(SDATEG + 30)//S5QM 
- STMT=STMT//' SAPRGDTE '//TDATE 
endif; 
IF SACALVL+3) NE BLANK 
THEN STMT=STMT//' SAOWNCODE '//S$QM//SA(ALVL+3)//$QM 
endif; 
ELSE STATSW = 'ON' 
endif; 


IF &STMT NE BLANK 
THEN 
DO execute created statement 
&STMT1 &STMT 
enddo; 
endif; 
ALVL = ALVL + 4 
enddo; 


IF STATSW EQ 'ON' 
THEN PRINT message stating only Status “iG 
items have been added 
endif; 
endproc ADDCASE 


DEC CCASE 
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BLANK value ' ' 
SEGMENT S$UNAME1 
TSEGMENT current segment value 


TDATE buffer area for date 

SB single dimensional array to 
hold change statements 

SBM count of used $B arrays 

SBC current $B array 

ALVL value 3 

SA single dimensional array 


$A(3) Ist SSNOR 

SA(4) lst SSNOR Status 

SA(5) lst SSNOR Purge Date (SAPRGDTE) 

SA(6) Ist SSNOR Ownership Code (SAOWNCODE) 

SA(7) 2nd SSNOR 

SA(8) 2nd SSNOR Status 

SA(9) 2nd SSNOR Purge Date (SAPRGDTE) 

$A(10) 2nd SSNOR Ownership Code (SAOWNCODE) 

$A(11) 3rd SSNOR 

$A(12) 3rd SSNOR Status 

$A(13) 3rd SSNOR Purge Date (SAPRGDTE) 

$A(14) 3rd SSNOR Ownership Code (SAOWNCODE) 

$A(15) 4th SSNOR 

$A(16) 4th SSNOR Status 

$A(17) 4th SSNOR Purge Date (SAPRGDTE) 

$A(18) 4th SSNOR Ownership Code (SAOWNCODE) 

$A(19) 5th SSNOR 

$A(20) 5th SSNOR Status 

$A(21) Sth SSNOR Purge Date (SAPRGDTE) 

$A(22) 5th SSNOR Ownership Code (SAOWNCODE ) 

$A(23) 6th SSNOR 

$A(24) 6th SSNOR Status 

$A(25) 6th SSNOR Purge Date (SAPRGDTE) 

$A(26) 6th SSNOR Ownership Code (SAOWNCODE) 
enddec CCASE 


PROC CCASE 


DO UNTIL ALVL EQ 23 
IF $A(ALVL) NE BLANK AND $A(ALVL+1) EQ 'A' 
THEN - TSEGMENT = SEGMENT//'A'//$qm//S$A(ALVL) 
//$qm 


endif; 


IF $A(ALVL) NE BLANK AND SA(ALVL+1) EQ 'S! 
THEN - TSEGMENT = SEGMENT//'S'//Sqm//$A(ALVL) 
//$qm 


endif; 


IF $A(ALVL) NE BLANK AND SA(ALVL+1) EQ 'C' 
THEN - TSEGMENT = SEGMENT//'C'//S$qm//$A(ALVL) 
//$qm 


endif; 


: CIA-RDP88-00893R000200060006-1 
Approved For Reais e Poe aOR iar ge Rey 109 


Approved For Release D605768/62) Sh alRbPSE-bos93Rodd2600d0006- 


IF $A(ALVL+1) EQ 'A' OR SA(ALVL+1) EQ 'S' 
THEN - TDATE = $QM//SODATEA(SDATEG)//$QM 
- $B='FOR '//TSEGMENT//' WITH SADTE NE '// 
TDATE//' OR WITH NULL SADTE CHANGE 
SAPRGDTE TO '//$QM//SA(ALVL+2) //$QM 
endif; 


IF SA(ALVL+1) EQ 'C' AND $A(ALVL+2) 
NE BLANK 
THEN - $B = ‘FOR '//TSEGMENT//' CHANGE 
SAPRGDTE TO '//SQM//$A(ALVL+2) //$QM 
IF SA(ALVL+3) NE BLANK 
THEN - $B($BC)=$B(SBC)//' SAOWNCODE TO '// 
$QM//SA(ALVL+3) //$QM 
endif; 
endif; 
ALVL = ALVL + 4 
enddo; 
endproc CCASE 


DEC DCASE 
SEGMENT  SUNAMEL 
TSEGMENT current segment value 


$B single dimensional array to 
hold change statements 

ALVL value 3 

SA single dimensional array 


$A(3) lst SSNOR 
SA(4) lst SSNOR Status 
SA(7) 2nd SSNOR 
SA(8) 2nd SSNOR Status 
SA(11) 3rd SSNOR 
$A(12) 3rd SSNOR Status 
$A(15) 4th SSNOR 
$A(16) 4th SSNOR Status 
$A(19) 5th SSNOR 
$A(20) 5th SSNOR Status 
$A(23) 6th SSNOR 
SA(24) 6th SSNOR Status 
enddec DCASE 


PROC DCASE 


DO UNTIL ALVL EQ 23 
IF $A(ALVL) NE BLANK AND $A(ALVL+1) EQ 'A' 
THEN - TSEGMENT = SEGMENT//'A'//$qm//S$A(ALVL) 
//$qm 


endif; 


IF SACALVL) NE BLANK AND S$A(ALVL+1) EQ 'S' 
THEN - TSEGMENT = SEGMENT//'S'//$qm//SA(ALVL) 
//$qm 


endif; 
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IF SAC(ALVL) NE BLANK AND SA(ALVL+1) EQ 'C' 
THEN - TSEGMENT = SEGMENT//'C'//Sqm//SA(ALVL) 
//§qm 


endif; 


IF SA(ALVL+1) EQ 'A' OR SA(ALVL+1) EQ 'S' 
OR SA(ALVL+1) EQ ‘C' 
THEN - $B = ‘DELETE '//TSEGMENT//SQM//SACALVL) //S$QM 
endif; 
ALVL = ALVL + 4 
enddo; 
endproc DCASE 


DEC CKCASE 
BLANK value '' ' 
ALVL value 3 
LOCATE value 0 
SA single dimensional array 


$A(3) Ist SSNOR 

SA(4) Ist SSNOR Status 

$A(5) Ist SSNOR Purge Date (SAPRGDTE) 

SA(6) lst SSNOR Ownership Code (SAOQWNCODE) 

$A(7) 2nd SSNOR 

$SA(8) 2nd SSNOR Status 

SA(9) 2nd SSNOR Purge Date (SAPRGDTE) 

$A(10) 2nd SSNOR Ownership Code (SAOWNCODE) 

$A(11) 3rd SSNOR 

$A(12) 3rd SSNOR Status 

$A(13) 3rd SSNOR Purge Date (SAPRGDTE) 

$A(14) 3rd SSNOR Ownership Code (SAOWNCODE) 

$A(15) 4th SSNOR 

$A(16) 4th SSNOR Status 

$A(17) 4th SSNOR Purge Date (SAPRGDTE) 

$A(18) 4th SSNOR Ownership Code (SAOWNCODE) 

SA(19) 5th SSNOR 

$A(20) 5th SSNOR Status 

$A(21) 5th SSNOR Purge Date (SAPRGDTE) 

$A(22) 5th SSNOR Ownership Code (SAOWNCODE) 

$A(23) 6th SSNOR 

$A(24) 6th SSNOR Status 

$A(25) 6th SSNOR Purge Date (SAPRGDTE) 

$A(26) 6th SSNOR Ownership Code (SAOWNCODE) 
enddec CKCASE 


PROC CKCASE 


DO UNTIL ALVL EQ 23 or LOCATE NE 0 
IF SACALVL) NE BLANK AND SA(ALVL+1) EQ BLANK 
THEN - LOCATE = ALVL4+1 
- PRINT msg (status is required) 
endif; 


ALVL = ALVL + 4 
enddo; 
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endproc CKCASE 


DEC EXCASE 
BLVL value 1 
SB single dimensional array 
containing created statements 
SBM count of used $B arrays 


enddec EXCASE 
PROC EXCASE 


DO UNTIL BLVL EQ $BM 
&($BC(BLVL) ) (Execute all statement) 
BLVL = BLVL + 1 

enddo; 

endproc EXCASE 


DEC RCASE 
ALVL value 3 
SEGMENT SUNAME1 
TSEGMENT current segment value 
HOLD temporary hold area for SAPRGDTE 


SA single dimensional array 
enddec RCASE 


PROC RCASE 
DO UNTIL ALVL EQ 23 


IF SACALVL) NE BLANK 
THEN - TSEGMENT = SEGMENT//SA(ALVL+1)//$QM 


//SA(ALVL) //$QM 
- FOR &TSEGMENT ACQUIRE SAPRGDTE SAOWNCODE 
- get SAPRGDTE (use GFAV) 
- HOLD = $W 


VOPRINT '*I'//SALF(ALVL+2)//','//HOLD 
IF SA(ALVL+1) EQ 'C' 
THEN - get SAOWNCODE (use GFAV) 
- VOPRINT '*I'//SALF(ALVL+3)//','//$W 

endif; 

endif; 

ALVL = ALVL + 4 

enddo; 
endproc RCASE 


DEG EXIT-FOR-RESTART 


SA single dimensional arrays 

SA(2) Action value 

$A(3) 1st SSNOR 

SA(4) lst SSNOR Status 

SA(5) lst SSNOR Purge Date (SAPRGDTE) 
SA(6) lst SSNOR Ownership Code (SAOWNCODE) 
$A(7) 2nd SSNOR 

SA(8) 2nd SSNOR Status 

$SA(9) 2nd SSNOR Purge Date (SAPRGDTE) 
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$A(10) 2nd SSNOR Ownership Code (SAOWNCODE) 
SA(11) 3rd SSNOR 
$A(12) 3rd SSNOR Status 
$A(13) 3rd SSNOR Purge Date (SAPRGDTE) 
$A(14) 3rd SSNOR Ownership Code (SAOWNCODE) 
$A(15) 4th SSNOR 
$A(16) 4th SSNOR Status 
$A(17) 4th SSNOR Purge Date (SAPRGDTE) 
$A(18) 4th SSNOR Ownership Code (SAOWNCODE) 
$A(19) 5th SSNOR 
$A(20) 5th SSNOR Status 
$A(21) 5th SSNOR Purge Date (SAPRGDTE) 
$A(22) 5th SSNOR Ownership Code (SAOWNCODE) 
$A(23) 6th SSNOR 
$A(24) 6th SSNOR Status 
$A(25) 6th SSNOR Purge Date (SAPRGDTE) 
$A(26) 6th SSNOR Ownership Code (SAOWNCODE) 
BLANK value ' ' 
enddec EXIT-FOR-RESTART 


PROC EXIT-FOR-RESTART 


IF $A(2) EQ BLANK or ($A(2) NE 'A' and $A(2) NE 'C' and 
$A(2) NE 'D' and $A(2) NE 'R' and $A(2) NE 'X') 
THEN - PRINT MESSAGE VALID ACTION REQUIRED 
- RELOCATE cursor to Action (*RL2) 
ELSE 
IF $A(3) EQ BLANK AND $A(7) EQ BLANK AND 
$A(11) EQ BLANK AND $A(15) EQ BLANK AND 
$A(19) EQ BLANK AND $A(23) EQ BLANK 
THEN - RELOCATE cursor to Access Segment (*RL3) 
endif; 
IF LOCATE NE 0 
THEN - PRINT MESSAGE STATING SSNOR AND STATUS 
ARE REQUIRED FIELDS AND PURGE DATE IS A 
REQUIRED FIELD FOR 'C' 
~ RELOCATE CURSOR TO SA(LOCATE) 
"YRL' //SA(LOCATE) 
- LOCATE = 0 
endif; 
endif; 
endproc EXIT-FOR-RESTART 


PROC EXIT-FOR-MORE 


VOPRINT '*C' clears menu 

VOPRINT '*I1,E PRACCUPDT' establishes value in $A(1) 
VOPRINT '*+B' big buffer 

VOPRINT '*RL2' relocate cursor to $A(2) 


endproc EXIT-FOR-MORE 


PROC EXIT-FOR-NOMORE 
VOPRINT ‘'*-F' exit format mode 
VOPRINT ‘*c' clear entire screen 
endproc EXIT-FOR-NOMORE 
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endproc PRACCUPDT 


4.3.9 | PRCALINK - PRIM LINKS CREATED DAILY BY COMPONENT 


4.3.9.1 PURPOSE 


This procedure establishes the links for the initiating Signon Org to 
the Official Data files, ORGCODE file, POSNR file, and the Separated 
Data file (PRIMSEP). The procedure is activated at the time of Signon 
but will only perform the link-building function when the first Signon 
is done for an ORG. All SSNORs to be made available to the ORG initi- 
ating the Signon will be added to the ORGCODE and POSNR files if the 
user requests it. These links are stored in the ORG's SELECTION seg- 
ment file where the Selection Criteria also is stored. The ORGCODE 
and POSNR links will be created on the weekend but the user can re- 
quest a new link creation at Signon time with this procedure. See 
flow diagram in Figure 11 of the Appendix. 


4.3.9.2 GENERAL INFORMATION 


Proc Name : PRCALINK 
Language Used: GIM POL 
Frequency Of 
Execution : Daily, the first time a Signon 
is initiated against an ORG. 
Input : Signon ORG's SELECTION file 
Selection Criteria 
SLOLNKDTE 
SLLNKDTE 
PERSIGN (XBRIDGE will trigger appropriate 
index) 
PERSD 
PERAORG 
PEROCCE 
PERSCCE 
PRIMSEP (XBRIDGE will trigger appropriate 
index) 
PERSD 
PERAORG 
PEROCCE 
PERSCCE 
INDEX files (For active data) 
SDINDX SDSSN 
ORGINDX ORGSSN 
OCCEINDX  OCCESSN 
SCCEINDX  SCCESSN 
INDEX files (For separated data) 
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SSDINDX SSDSSN 
SORGINDX SORGSSN 
SOCCEINDX SOCCESSN 
SSCCEINDX SSCCESSN 
Output : Current links created for the initiating 
ORG to Official, Separated and INTERFACE data 


4.3.9.3 | FUNCTIONAL DESCRIPTION 


This procedure is triggered at Signon time by the EXECPROC element in 
SYSMAN2. If the initiator is the first to sign on to that ORG that 
day, the procedure will acquire the ORGs Selection Criteria from the 
correct SELECT segment and with the use of INDEX files will select the 
SSNORs which can be accessed by that ORG (Both Active and Separated 
files). This procedure will also give the initiator the option to es- 
tablish the most recent updated version of SLORGLINKs and SLPOSLINKs. 


4.3.9.4 INPUT 


No menu will be used for this procedure. The procedure will be initi- 
ated automatically at Signon time. If the link has not been built by 
a previous Signon (SLOLNKDTE IN ORG'S Selection file NE current date), 
the procedure will acquire Selection Criteria data from the Signon 
ORG's SELECTION segment and build a copy statement against the PRIM 
PERSIGN and PRIMSEP files to copy the appropriate SSNORs to the ORG's 
SEGACCESS files for active data and separated data links. The copy 
statement will trigger INDEX files through XBRIDGES which will elimi- 
nate an end-to-end search of PRIM PERSIGN or PRIMSEP. Upon request 
via prompts, the procedure will build an access link at first Signon 
to ORGCODE and POSNR files if the user requests it. This link data 
will be stored in the ORG's SELECTION segment and will be accessed 
through that file. 


Procedure Prompt: Do You Want Your ORG/POS Link Updated? 
User Response 


YES - create links for ORGCODE and POSNR file 
- create links for Active data and Separated data 
NO - create links for Active data and Separated data 


4.3.9.5 OUTPUT 

The output from the PRCALINK will be the links to the PRIM PERSIGN and 
PRIMSEP files. The initiator will be asked if updated links are re- 
quested for ORGCODE and POSNR data. 


If return from VOPREADI EQ 'NO' 
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then - Acquire SLOLNKDTE (Official Link date) in SELECTION 
file (Signon ORG) 
endif; 


If SLOLNKDTE LT System Date (Link not established) 
then - acquire Selection Criteria for Signon ORG from 
SELECTION segment. 

- Build statement against PRIM PERSIGN file using 
Selection Criteria (triggers INDEX files that 
apply to Selection Criteria for Active data). 

- use copy verb to move SSNORs into SEGACCESS 
segment for Active data link (SYSMAN2+A) 
with SDTE and PRGDTE (SDTE + 60). 

- build statement against PRIMSEP file using 
Selection Criteria (triggers INDEX files that 
apply to Selection Criteria for Separated 
data). 

- use COPY verb to move SSNORs into SEGACCESS 
segment for Separated data link (SYSMAN2+S) 
with a PRGDTE (current date + 60). 

- add current date to SLOLNKDTE in SELECTION file 
for Signon ORG. 

endif; 


If return from VOPREADI EQ 'YES' 
then - acquire SLLNKDTE (POS/ORG link date) in SELECTION file 
If SLLNKDTE NE current date 
then - acquire ORGCODE from Criteria line in the SELECTION file. 
- build statement against ORGCODE file using ORGCODE from 
Criteria lines. 
- add ORGCODE to the SELECTION file (SLORGLINK). 
- acquire SD from Criteria lines in the SELECTION file 
- build statement against POSNR file using ORGCODE from 
Criteria line and SD from Criteria line (with $scan POSCSD 
EQ 'SD value' or with $scan POSORG EQ 'ORGCODE value’) 
- add POSNR to the SELECTION file (SLPOSLINK) 
- add SLLNKDTE "Current Date" 
endif; 
endif; 


4.3.9.6 GENERAL PROGRAM CONSIDERATIONS 


This program establishes daily links for the Signon ORGs. This pro- 
gram is initiated by any Signon ORG at signon time if the program name 
has been entered in Sysman2 EXECPROC for the Signon ORG. Only one 
signon per day per ORG will generate the daily links. The program 
will check the SLOLNKDTE in the SELECTION file to verify whether the 
daily link has been done. 


The PRCALINK procedure will also give the Signon ORG the option 
of creating new links to the POSNR and ORGLINK files. If the initia- 
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tor requests new links and the SLLNKDTE is not equal to the current 
date then new links will be created. Otherwise, new POSNR and ORGCODE 
links are only created on weekends. 


4.3.9.7 DETAILED PROGRAM SPECIFICATIONS 


DEC PRCALINK 
ODATE value 0, Official link date 
LDATE value 0, POSNR/ORGCODE link date 
RESPONSE value 'NO' 
value returned from VOPREADI 
SEGMENT value SUNAME1 


STMT1 holds message to be displayed in 
the VOPREADI statement 

TDATE SDATEG (GIM date format) 

SA single dimensional array 


used to hold criteria data 
enddec PRCALINK 
PROC PRCALINK 


DO acquire data from SELECTION segment 
FOR &SEGMENT '&SEGMENT' ACQUIRE 


GET SLOLNKDTE (use GFAV) 
ODATE = SW 
GET SLLNKDTE (use GFAV) 
LDATE = SW 
DO for all SLCRITERIA values 
GET SLCRITERIA (use GFAV & GNAV) 
SA = SW 
enddo; 
enddo; 


IF ODATE NE TDATE 
THEN ~- RUN OFFLNK 
endif; 


IF LDATE NE TDATE 
THEN 
VOPREADI ‘Should new POSNR/ORGCODE links be 
Created (Yes or No)'//RESPONSE 


RESPONSE = response from VOPREADI 


IF RESPONSE EQ 'YES' 
THEN - RUN OTHLNK 
endif; 
endif; 
EXIT PRCALINK DEG OFFLNK 
ALVL value 1 
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BLANK value ' ' 
SA single dimension array used to 
hold criteria data 
SAM count of filled $A arrays 
SD SD value from SLCRITERIA 
OCCE OCCE value from SLCRITERIA 
SCHGR SCH and GRADE values from SLCRITERIA 
SCCE SCCE value from SLCRITERIA 


ORGCODE ORGCODE value from SLCRITERIA 
SEGMENT SUNAME1 
TSEGMENT current segment being updated 


TDATE SDATEG 

PDATE SDATEG + 60 

STMT area for 'WITH' portion of statement 
STMTA Ist part of Active statement (PERSIGN) 
STMTS lst part of Separated statement (PRIMSEP) 


enddec OFFLNK 
PROC OFFLNK 


DO UNTIL ALVL EQ SAM 
IF $SBF(SA(ALVL) ,0,1,'*') NE BLANK 
THEN SD=$QM//SSBF(SA(ALVL) ,0,1,'*')//$QM 
endif; 


IF $SBF(SA(ALVL),1,1,'*') NE BLANK 

THEN OCCE=$QM//SSBF(SA(ALVL) ,1,1,'*"') 

endif; 

IF $SBF(SA(ALVL) ,2,1,'*') NE BLANK 

THEN SCHGR=$QM//$SBF(SA(ALVL) ,2,1,'*') 
IF SSBF(SA(ALVL) ,3,1,'*') NE BLANK 
THEN SCHGR=SCHGR//S$SBF(SA(ALVL) ,3,1, '*')//SQM 
endif; 


IF SSBF(SA(ALVL) ,4,1,'*') NE BLANK 
THEN SCHGR=' GE '//SCHGR//' AND WITH SCHGR LE ' 
//$QM//$SBF($A(ALVL) ,2,1,'*')// 
SSBF (SA(ALVL) 4,1, '*')//S$QM 
endif; 
endif; 


IF $SBF(SA(ALVL) ,5,1,'*') NE BLANK 
THEN SCCE=$QM//SSBF(SA(ALVL) ,5,1,'*')//SQM 
endif; 


IF $SBF($A(ALVL) ,6,1,'*') NE BLANK 


THEN ORGCODE=§QM//SSBF(SA(ALVL) ,6,1, '*')//$QM 
endif; 
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(BUILD COPY STATEMENT) 


IF SD NE BLANK 
THEN STMT=STMT//' WITH $SCANX(PERSD,'//SD//')' 
endif; 


IF OCCE NE BLANK 

IF STMT NE BLANK 

THEN STMT=STMT//' AND' 

endif; 
THEN STMT=STMT//' WITH $SCANX(PEROCCE,'//OCCE//')' 
endif; 


IF SCHGR NE BLANK 

IF STMT NE BLANK 

THEN STMT=STMT//' AND' 

endif; 
THEN STMT=STMT//' WITH PERSCHGR '//SCHGR 
endif; 


IF SCCE NE BLANK 

IF STMT NE BLANK 

THEN STMT=STMT//' AND' 

endif; 
THEN STMT=STMT//' WITH PERSCCE '//SCCE 
endif; 


IF ORGCODE NE BLANK 

IF STMT NE BLANK 

THEN STMT=STMT//' AND' 

endif; 
THEN STMT=STMT//' WITH SSCANX(PERORGCODE,'//ORGCODE//')' 
endif; 
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(EXECUTE BUILD STATEMENT AND DATE UPDATE STATEMENT) 


STMTA='FOR PERSIGN ' 
STMTS='FOR PRIMSEP ' 


TSEGMENT = SEGMENT//'A' 


&STMTA &STMT COPY REPLACE TO &TSEGMENT, PERTD TO SADTE, 
PERTD TO SAPRGDTE 


FOR &TSEGMENT WITH NULL SADTE AND WITH NULL SAPRGDTE 
ADD SADTE '&TDATE' SAPRGDTE 'S&PDATE' 


TSEGMENT = SEGMENT//'S' 


&STMTS &STMT COPY REPLACE TO &TSEGMENT, PERTD TO SADTE, 
PERTD TO SAPRGDTE 


FOR &TSEGMENT WITH NULL SADTE AND WITH NULL SAPRGDTE 
ADD SADTE ‘'&TDATE' SAPRGDTE '&PDATE' 
enddo; 


FOR &SEGMENT '&SEGMENT' ADD SLOLNKDTE '&TDATE' 


endproc OFFLNK DEC OTHLNK 


ALVL current $A array being addressed 
BLANK value ' ' 
LDATE value 0, POSNR/ORGCODE link date 


ORGCODE ORGCODE value from SLCRITERIA 
SEGMENT SUNAME1 


STMT use to build 'WITH' statement for ORGCODE 

STMT1 use to build ‘WITH’ statement for POSNR 

STMT2 use to build 'ADD' statements to add 
dates to the office file 

STMTO contains first part of ORGCODE statement 

STMTP contains first part of POSNR statement 

TDATE SDATEG (GIM date format) 

SA single dimensional array 
containing all SLCRITERIA 

SAM count of filled SA arrays 

$B single dimensional array 
contains ORGCODE DLID for link 

BLVL count of $B elements stored in current 
$C element 

$C single dimension array used to store 
groups of $B elements 

CLVL current $C element in use 

SCM last $C element used 

SW current value being addressed 


enddec OTHLNK 
PROC OTHLNK 


DO UNTIL ALVL EQ $AM 
IF $SBF(SA(ALVL) ,6,1,'*') NE BLANK 
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THEN ORGCODE= SQM//SSBF(SA(ALVL) , 6,1 1" )//$ Qt 
STMT=STMT//' WITH $SCANX (ORGCODE, ‘/ /ORGCODE//' s 
STMT1=STMT1//' WITH SSCANX(POSORG, "//ORGCODE//' 5 

endif; 


ALVL=ALVL + 1 
ORGCODE = BLANK 
enddo; 


IF STMT EQ BLANK (No ORGCODES found) 
THEN PRINT MESSAGE 'No Org Value found in Selection 
Criteria - See Data Base Administrator' 
EXIT PRCALINK 
endif; 
STMTO = 'FOR ORGCODE ' 
&STMTO &STMT ACQUIRE 


DO for all ORGCODE 
GET DLID (use NEXT) 
$B = $QM//$W//$QM 
IF BLVL EQ 50 
THEN BLVL=0,CLVL=CLVL+1 
endif; 
$C (CLVL)=S$C(CLVL)//$B(SBC) 
BLVL=BLVL+1 
enddo; 


(Delete previous links) 
FOR &SEGMENT '&SEGMENT' DELETE SLORGLINK SLPOSLINK 


DO for all SC elements used 
FOR &SEGMENT '&SEGMENT' ADD SLORGLINK Sc 
enddo; 


$B = BLANK, $C=BLANK 
STMTP = 'FOR POSNR ' 
&STMTP &STMT1 ACQUIRE 


DO for all POSNR 
GET DLID (use NEXT) 
SB = $QM//$W//$QM 
IF BLVL EQ 50 
THEN BLVL=0,CLVL=CLVL+1 
endif; 
$C (CLVL)=$C (CLVL)//S$B(SBC) 
enddo; 


DO for all SC elements used 
FOR &SEGMENT '&SEGMENT' ADD SLPOSLINK $C 
enddo; 


FOR &SEGMENT '&SEGMENT' ADD SLLNKDTE '&TDATE' 
endproc PRCALINK 
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4.3.10 PRINDX - PRIM INDEXING OF DATA 


4.3.10.1 PURPOSE 


The PRINDX procedure is used to establish the INDEX files for Active 
and Separated data. These files will normally be established once 
only and updated via XBRIDGING from the PRIM PERSIGN (Active) and 
PRIMSEP (Separated) files. If, however, a problem occurs with these 
INDEX files, they can be re-established with this procedure. See flow 
diagram in Figure 12 of the Appendix. 


4.3.10.2 GENERAL INFORMATION 


Program Name : PRINDX 
Language Used: GIM Statements 
in SYSER via DAC-STMTS POL 
Frequency of 
Execution : When data base is established, 
re-establish INDEX files, or 
incorporate a new INDEX file. 
Input : SYSER 
PRINDX1 
PRINDX2 
PRINDX3 
PRINDX4 
PRINDX5 
PRINDX6 
PRINDX7 
PRINDX8 
PERSIGN 
PERSD 
PEROCCE 
PERSCCE 
PERORGCODE 
PRIMSEP 
PERSD 
PEROCCE 
PERSCCE 
PERORGCODE 
Output : SDINDX 
SDSSN 
ORGINDX 
ORGSSN 
OCCEINDX 
OCCESSN 
SCCEINDX 
SCCESSN 
SSDINDX 
SSDSSN 
SORGINDX 
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SORGSSN 
SOCCEINDX 

SOCCESSN 
SSCCEINDX 

SSCCESSN 


4.3.10.3 FUNCTIONAL REQUIREMENTS 


This procedure will be used by the PRIM Data Base Manager or DBCC on 
instructions from the Data Base Manager to re-establish the data in 
the INDEX files for both Active and Separated data. This procedure 
will be used to originally establish the INDEX files, re-establish the 
files any time there is a question about the connections of INDEX 
data, or when a new INDEX file is added to the system. This will be 
done with DELETE-DATA statements to remove old INDEX values and INVERT 
statements to establish new INDEX values. The statements will be 
stored in SYSER records starting with PRINDX. These statements will 
be stored in the order of normal execution, however, any one could be 
executed alone. 


4.3.10.4 INPUT 


This procedure will not require a menu. The following statements 
which are stored in SYSER will be executed using the DAC-STMTS proce- 
dure in the following format: 


DAC-STMTS PRINDX1 (for SDINDX) 
DAC~STMTS PRINDX2 (for ORGINDX) 
DAC-STMTS PRINDX3 (for SCCEINDX) 
DAC-STMTS PRINDX4 (for OCCEINDX) 
DAC-STMTS PRINDX5 (for SSDINDX) 
DAC-STMTS PRINDX6 (for SORGINDX) 
DAC-STMTS PRINDX7 (for SSCCEINDX) 
DAC-STMTS PRINDX8 (for SOCCEINDX) 
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4.3.10.5 OUTPUT 


Execution of this procedure will load into designated INDEX files all 
SSNORs associated to that file by associated element (ex: SDINDX file 
will contain all SSNORs by SD). This process will perform the follow- 
ing steps by using statements stored in SYSER file: 


- delete data from Active INDEX file. 

- load each Active INDEX file via INVERT verb. 

- delete data from separated INDEX file. 

- load each separated INDEX via INVERT verb. 

- create a completion message for each PRINDX record used. 
Ex. PRINDX1 will have a completion message in PRINDX1MSG 
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403511 PRCRTLINK - PRIM LINKS CREATED WEEKENDS BY DBCC 


4.3.11.1 PURPOSE 


This procedure will be used on weekends to create new component links 
to the ORGCODE and POSNR files. See flow diagram in Figure 13 of the 
Appendix. 


4.3.11.2 GENERAL INFORMATION 


Proc Name : PRCRTLINK 
Language Used: GIM POL 
Initiated by : DBCC 
Frequency of 
Execution : Will be done each weekend. 
Input : SELECTION file (all segments) 
SEGNAME 
ORGCODE data 
SLLNKDTE 
ORGCODE 
POSNR 


Output : SELECTION file (all segments) 
SLORGLINK 
SLPOSLINK 
SLLNKDTE 


4.3.11.3 FUNCTIONAL REQUIREMENTS 


This procedure will use the ORGCODE portion of the SELECT field in 
each SELECTION segment to build an acquire statement against the 
ORGCODE and POSNR files. The ORGCODEs received will be added to the 
segment (SLORGLINK) and used by the component to query the ORGCODE 
file. The POSNRs received will be added to the segment (SLPOSLINK) 
and used by the component to query the POSNR file. A date will be 
stored in the SLLNKDTE field to show when the last SLORGLINK/SLPOSLINK 
link was created on PRIM. 


4.3.11.4 INPUT 


This procedure will require no menu. It will be initiated with the 
following statement: 


E PRCRTLINK 
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This procedure will acquire through the SELECTION master, SEGNAME (to 
know what segment is being updated), ORGCODE (to know what ORGCODE to 
scan for in the ORGCODE and POSNR files), and SLLNKDTE (to know if new 
links are required for that segment). 


4.3.11.5 OUTPUT 
Do for each SELECTION segment: 


If the SLLNKDTE is LT current date 
then - delete old SLORGLINK 
- Scan ORGCODE file for ORGCODE record containing 
ORGCODE from SELECTION Criteria. 
- add ORGCODEs acquired to current segment SLORGLINK 
- delete old SLPOSLINK 
~ scan POSNR file for POSNR records containing ORGCODE 
from SELECTION Criteria 
- add POSNRs acquired to current segment SLPOSLINK 
- add current date to SLLNKDTE 
endif; 


4.3.11.6 GENERAL PROGRAM CONSIDERATIONS 


This program establishes ORGCODE and POSNR links for all PRIM Signon 
ORGs. This program is initiated each weekend by DBCC. 


4,.3.11.7 DETAILED PROGRAM SPECIFICATIONS 


DEC PRCRTLINK 


DATE Sodatea(S$dateg) (GIM date format) 

I current $A being used 

SA array containing file name 

SW current value being addressed 

STMT statement containing 'WITH $SCANX' statements 
STMT1 statement containing 'WITH $SCANX' statements 
STMT2 statement containing 'WITH $SCANX' statements 

VAR value containing the SLCRITERIA 

SDVAR value containing the Service Designations 

OGVAR value containing the ORGCODES 

WLVL count of CTEMP or DTEMP elements stored in 

current $C or $D array 

_CLVL current $C array element in use 

$C array used to store groups of CTEMP elements 
CTEMP variable used to store values acquired from ORGCODE 
DTEMP variable used to store values acquired from POSNR 
DLVL current $D array element in use 

sD array used to store groups of DTEMP elements 

J current array being updated 
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enddec PRCRTLINK 
PROC PRCRTLINK 


DO for all SELECTION segments 
FOR SELECTALL WITH PRESENT SLCRITERIA ACQUIRE 


GET file name (use NEXT) 


FOR filename ACQUIRE SLCRITERIA 
GET SLCRITERIA (use GFAV's and GNAV's) 


DO for all SLCRITERIA values 
VAR = SW 
SDVAR = SSBF(VAR,0,1,'*') 
ORGVAR = SSBF(VAR,6,1,'*') 
IF ORGVAR and SDVAR NE blank 
THEN 
STMT = STMT//' WITH SSCANX(ORGCODE, '//$QM//ORGVAR//SQM')', 


STMT1 = STMT1//' WITH SSCANX (POSORG, '//$QM//ORGVAR//SQM')', 
and STMT2 = STMT2//' WITH $SCANX(POSCSD, '//$QM//SDVAR//$QM')', 
endif; 


enddo; 


DO for twenty values at a time 
FOR ORGCODE &STMT ACQUIRE 


GET value (use NEXT) 

CTEMP = SW 

SC(CLVL) = $C(CLVL)//$QM//CTEMP//$QM 
enddo; 


DO for twenty values at a time 
FOR POSNR &STMT1 OF &STMT2 ACQUIRE 


GET value (use NEXT) 

DTEMP = SW 

SD(DLVL) = $D(DLVL)//$QM//DTEMP//$QM 
enddo; 


(Delete previous links) 
FOR &($A(I)) '&($A(I)' DELETE SLORGLINK SLPOSLINK 


FOR &(S$A(I)) '&(SA(I))' ADD SLORGLINK &($C(J)) 
SLPOSLINK &($D(J))} SLLNKDTE '&DATE' 
enddo; 
endproc PRCRTLINK 
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4.4 COMPONENT RETRIEVAL 


4.4.1 DEFINITION 


Component Retrieval in Release 1 will be through adhoc queries. All 
queries will be through the SEGACCESS file. The SEGACCESS file is a 
segmented file, segmented by ORG Access Levels which correspond to the 
SYSMAN2 Signon ORG. Flow diagrams are provided in Figures 14 and 15 
of the appendix to graphically depict how a query will be controlled 
in PRIM. 


4.4.2 ONLINE QUERIES 
4.4.2.1 BASIC QUERIES - VIA SEGACCESS and SELECTION 


4.4.2.1.1 PURPOSE 


PRIM will provide components with online access to Official Personnel 
data. A great deal of the component's access will be done through on- 
line queries. All queries will be done through the SELECTION and 
SEGACCESS files. A query made through these files can be direct or 
complex. A complex query, however, will only search the SSNORs listed 
in the appropriate SEGACCESS file. This will eliminate the need for 
using reports for simple queries. See flow diagram in Figure 14 of 
the Appendix. 


4.4.2.1.2 GENERAL INFORMATION 


Language Used: GIM statements 
Initiated By : Individual in a component 
authorized to use PRIM. 


4.4.2.1.3 FUNCTIONAL DESCRIPTION 


Each person accessing PRIM must have pre-authorization to use one of 
the SEGACCESS segments established on PRIM. All queries will be done 
through the SEGACCESS segment and data retrieved will be for only 
those records authorized for that segment. 
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4.4.2.1.4 INPUT 


The component online query requirements from PRIM are varied and will 
include such items as: 


1. List the Position, Schedule, and Grade of an employee 
to insure the proposed assignment conforms to Office 
of Personnel mandated assignment controls. 

2. Count Positions of a selected Occupational Series. 

3. Counts of LWOP Cases and N-T-E Dates. 

4. List date of last change to a position. 

5. Count of vacant positions. 

6. List the date a position was officially deleted. 

7. List daily strength for: 

- part-time 

- full-time 

- Dev Comp 

- LwWoOP 

- Details in/out 


- Sick Leave (approved for disability retirement) 


8. List the Service Designation of a position 
versus the incumbent. 


9, List the Sub-Category Code of a position. 
10. List selected Cover Items. 
11. List FLSA Designation of Employee. 


12. List projected WGI to ascertain whether to delay 
a promotion until the WGI is granted. 


4.4.2.1.5 OUTPUT 
Output from a GIM statement will follow in the standard GIM output 


vertical/horizontal print rule. The print will be horizontal if the 
total record length is LE 80 and vertical if it is GT 80. 
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4.4.2.2 SEARCH - SEARCH NAME AND HPOSNR FILES 


4.4.2.2.1 PURPOSE 


This procedure is used to search for a particular record in either the 
NAME or the HPOSNR file. This procedure is used, rather than a state- 
ment, to restrict the user to only one record at a time. See flow di- 
agram in Figure 15 of the Appendix. 


4.4.2.2.2 GENERAL INFORMATION 


Proc Name : SEARCH 

Language Used: GIM POL 

Initiated by : User 

Frequency of 

Execution : Random 

Input : Parameters 
File Name (NAME,HPOSNR) 
Value to search for 


4.4.2.2.3 FUNCTIONAL REQUIREMENTS 


The NAME and HPOSNR files are not linked to any primary PRIM files. 
At times, a user may know a person's name but not the SSNOR or may 
wish to look at a deleted position number. Because of security re- 
strictions, the user will be limited to only one record from either 
file per request. 


4.4.2.2.4 INPUT 


This procedure does not require a menu. However, a file name and val- 
ue to be searched for must be passed at execution. 


Example: E SEARCH NAME (last*first) 
E SEARCH HPOSNR (position number) 


4.4.2.2.5 OUTPUT 


Using the parameters passed, a query statement will be made against 
the file specified for the record specified. The NAME file responses 
will list all individuals with the same last and first name specified. 
The HPOSNR response will only list one position record. FILE: SEARCH 
SCRIPT A RUFFING COMPUTER CENTER SEARCH 
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4.4.2.2.6 GENERAL PROGRAM CONSIDERATIONS 


All retrieval from the HPOSNR and NAME files will be through the 
SEARCH procedure, direct queries against these files will not be al- 
lowed. The procedure will not use a menu but will expect two (2) pa- 
rameters via prompts (file name and ID of record to be retrieved). 


4.4.2.2.7 DETAILED 


DEC SEARCH 
SA array containing file name 
SC array containing ID of record 
$B array used to contain file name synonym 


enddec SEARCH 


PROC SEARCH 
VOPREADI ‘ENTER FILE TO BE ACCESSED (NAME, HPOSNR)',$A 
VOPREADI "ENTER RECORD ID FOR RETRIEVAL’ ,$C 
BUILD and EXECUTE query statements for NAME or HPOSNR 
FOR &($b(1)) '&($e(1))' LIST 
EXIT PROC SEARCH 


endproc SEARCH 


4.4.2.3 LISTSTMT - GENERALIZED QUERY 
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4.4.2.3.1 PURPOSE 


The procedure will use generalized statements entered by the Data Base 
Manager and personalize the statement with pre-determined parameters. 
Because of the security matrix on PRIM, users will not be allowed to 
use the LIST verb with a data file name to list all elements or all 
records. The user will have to go through a unique SEGACCESS or 
SELECTION file and list each element. Because of the large number of 
elements, a statement will be provided in the STATEMENT file for this 
purpose. 


4.4.2.3.2 GENERAL INFORMATION 


Proc Name : LISTSTMT 
Language Used: GIM POL 
Initiated by : User 
Frequency of 
Execution : Random 
Input : Parameters 
STATEMENT name 
ORG initiating 
Any additional parameters 
pre-established for that 
statement. 


4.4.2.3.3 FUNCTIONAL REQUIREMENTS 


Statements must be entered in the STATEMENT file by the Data Base Man- 
ager and can use the LIST, COUNT, REPORTW, or EXTRACT verbs. State- 
ments added should be generalized so they can be used by all compo- 
nents. 


4.4.2.3.4 INPUT 

Each statement used by LISTSTMT will have different parameter require- 
ments, therefore, the user must refer to the sample given for each 
statement. The first and second parameters will always be STATEMENT 
name and ORG followed by any additional parameters, if required. 


Ex. E LISTSTMT POSNR T56PER 
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4.4.2.3.5 OUTPUT 


If the correct parameters are passed, the output will be from the 
specified file for the specified ORG. One ORG accessing data for an- 
other ORG will envoke security restrictions and will not be allowed. 


4.4.2.3.6 GENERAL SPECIFICATIONS 


The position of each parameter for a STATEMENT record should be shown 
by a percent sign (%) followed by the parameter number, followed by a 
space, Ex. (For %1 LIST PERNAMEOR) would execute as (FOR TS6PER LIST 
PERNAMEOR) when executed by E LISTSTMT PERTEST T56PER. NOTE: There 
are two spaces following %1. Up to 5 parameters are allowed. 


4.4.2.3.7 DETAILED SPECIFICATIONS 
LISTSTMT (Executes Pre-established statements) 


DEC LISTSTMT 
SAM Total $A arrays read 
$A(1) STATEMENT Name 
$A(2) Signon ORG of Initiator 
$A(3) first parameter 
SA(4) second parameter 
$A(5) third parameter 
$SA(6) forth parameter 
SA(7) fifth parameter 
enddec LISTSTMT 


PROC LISTSTMT 
READ parameters into SA array 
ACQUIRE STATEMENT record per $A(1) 


IF STATEMENT record not found 

THEN Issue error (STMT not found) 
EXIT LISTSTMT 

endif; 


IF SAM LT 2 

THEN Issue error (not enough parameters) 
EXIT LISTSTMT 

endif; 


IF SAM GT 2 

THEN SCAN statement for %1 
replace with $A(3) value 

endif; 
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IF SAM GT 3 

THEN SCAN statement for %2 
replace with SA(4) value 

endif; 


IF SAM GT 4 

THEN SCAN statement for %3 
replace with $A(5) value 

endif; 


IF $AM GT 5 

THEN SCAN statement for %4 
replace with SA(6) value 

endif; 

IF $AM EQ 6 

THEN SCAN statement for %5 
replace with $A(7) value 

endif; 


Execute READF (GIM System module) 
to change all single quotes to double 


Execute STATEMENT 


endproc LISTSTMT 
4.4.3 OFFLINE REPORTS 


4.4.3.1 PURPOSE 


PRIM will provide components with RAMIS report definitions currently 
used on HRS2, as well as, frequently used REPORTW statements which can 
be used for offline reporting. 


4.4.3.2 GENERAL INFORMATION 


Language Used: RAMIS 
REPORTW 

Initiated by : Individual in a component 
authorized to use PRIM 
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4.4.3.3 FUNCTIONAL DESCRIPTION 


Each person accessing PRIM must have pre-authorization to use one of 
the SEGACCESS segments established on PRIM. All REPORTW or extract 
statements will be done through the SEGACCESS segment and data re- 
trieved will be for only those records authorized for that segment. 


4.4.3.4 INPUT 


The initiator of a REPORTW statement or an extract statement will be 
required to pass the SEGACCESS segment name and the desired report se- 
lection to initiate an offline report. 


4.4.3.5 OUTPUT 


Output for a REPORTW report will follow the format specified in the 
REPORTW statement. Output will be produced with a ROUTE *A and PRINT 
command. A successful extract will result in a tape or disk of re- 
quired data. A job must then be executed on VM to use the tape/disk 
with a RAMIS report program to produce final output. 


4.4.4 DATA BASE ACCESS VIOLATION REPORT 


4.4.4.1 PURPOSE 


The access violation report is used by the PRIM Data Base Manager to 
locate those persons having difficulty using the system or violating 
data base access security restrictions. 


4.4.4.2 GENERAL INFORMATION 


Program Name : PRIMSEC 

Language Used: RAMIS 

Initiated By: DBCC 

Input : DBCC Source 

Output : PRIM Security Access Violation Data 
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4.4.4.3 FUNCTIONAL DESCRIPTION 

The PRIM System must provide weekly reports to the PRIM Data Base Man- 
ager identifying any violations of established read and/or write ac- 
cess control to the PRIM System. The violations of established access 
control report should be similar to the HRS2 Data Base report. The 


report will also identify individuals who have been forced off the 
PRIM System after 3 security code violations. 


4.4.4.4 INPUT 


Input will be provided by DBCC. 


4.4.4.5 OUTPUT 
The report should list at a minimum: 
1. Data Base Name 
2. User Identification 
3. Terminal Identification 
4, Date and Time of violation 
5. If appropriate: 
a) Data List Name 
b) Transaction Number 


c) Verb Name 
4.4.5 DATA BASE EXCEPTION REPORT 


4.4.5.1 PURPOSE 


This report is used by the Data Base Manager to identify those state- 
ments executing longer than 3 minutes. 
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4.4.5.2 GENERAL INFORMATION 
Program Name : PRIMEXCP 
Language Used: RAMIS 
Initiated By : DBCC 


Input : DBCC Source 
Output : PRIM Exceptions Data 


4.4.5.3 FUNCTIONAL DESCRIPTION 

A weekly Data Base Exception Report will be produced to identify query 
statements executing longer than 3 minutes. The report will be used 
by the Data Base Manager to focus on component areas that may need 


guidance on creating cost effective queries. This report can use the 
same program used for the HRS2 Data Base. 


4.4.5.4 INPUT 


Input to this report will be provided by DBCC. 


4.4.5.5 OUTPUT 
The report should list at a minimum: 
1. Data Base Name 
2. User Identification 
3. Terminal Identification 
4. Date and Time of statement 
5. If appropriate: 
a) Data List Name 


b) Transaction Number 


4.4.6 ACF2 VIOLATION REPORT 


Approved Fok Release 2005/08/02 « CIA RDRRSP0893R00020006009471 


Approved For Release 2005/08/02 5 Gia-Ribp881d0893R0063060600085P 


4.4.6.1 PURPOSE 


A standard report will be available online or offline to an ACF2 Con- 
trol Officer showing ACF2 violations by persons attempting to illegal- 
ly access a dataset. 


4.4.7 | PRNTEPRG REPORT 


4.4.7.1 PURPOSE 


The PRNTEPRG Report will give the user a list of SSNORs and associated 
data which was purged from each segment of the SEGACCESS file. 


4.4.7.2 GENERAL INFORMATION 


Program Name : PRNTEPRG Report 

Language Used: GIMS REPORTW 

Initiated By: PRNTEPRG Procedure 

Input : Records with Purge Date (PRGDTE) 

LE System Date 

Output : SYSMAN2 (SEGACCESS Segment Name) 
SSNOR 
STATUS 
NAME 


4.4.7.3 | FUNCTIONAL DESCRIPTION 


The PRNTEPRG Report will be produced by the PRNTEPRG Procedure. The 
procedure will produce the report using a REPORTW statement just prior 
to executing the delete statement. The report will be printed with a 
ROUTE *A and a PRINT command which will route the listing to the PRIM 
Data Base Manager. A comment line will be used to slot the listing to 
the Data Base Manager. 


4.4.7.4 INPUT 


The PRNTEPRG Procedure will create and execute a REPORTW statement for 
each SEGACCESS that has data to purge. 
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4.4.7.5 OUTPUT 


The PRNTEPRG report will be a basic REPORTW output. It will provide 
the user by SEGACCESS (SYSMAN2) with SSNOR, STATUS, Name for each item 
purged. 


4.4.8 DBSTATS REPORT 


4.4.8.1 PURPOSE 


The DBSTATS report is a statistical report of the outlay of the data 
base resources. 


4.4.8.2 GENERAL INFORMATION 


Program Name : DBSTATS Report 

Initiated By : DBCC nightly 

Input : DBCC source 

Output : Statistics of PRIM Data Base 


4.4.8.3 FUNCTIONAL DESCRIPTION 


The DBSTATS report will be produced nightly by DBCC for the PRIM Data 
Base Manager. This report will be compared with a similar report pro- 
duced for the HRS2 Data Base for verification that the nightly Inter- 
face between the two systems was successful. The report will also be 
used by the PRIM Program Applications Specialist (PAS) to determine 
when a reallocation is required. 


4.4.9 PRCHANGE REPORT - REMOVE, SEPARATE, AND SSN CHANGES 


4.4.9.1 PURPOSE 


The PRCHANGE report will be a REPORTW produced report and will provide 
the user a list of Active SSNORs that are to be deleted (with SDTE NE 

current date), Separated SSNORs that are to be deleted (SSDTE NE cur- 

rent date) and SSNORs that have changed (IFCSIGN old NE S$SSSSSS8S and 

NE new). 
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4.4.9.2 GENERAL INFORMATION 


Proc Name : PRCHANGE Report 
Language Used: GIM REPORTW 
Frequency Of 


Execution : Random per component need 
Initiated by : Individual Components 
Input : SEGACCESS (SYSMAN2) 
STATUS (A/S) 
System Date (SDTE or SSDTE) 
Purge Date (PRGDTE) 
INTERFACE (PRIM) 
IFCSIGN (old/new SSNOR) 
IFCNAMEOR (old/new name) 
Output : Report of Component link data 
4.4.9.3 FUNCTIONAL DESCRIPTION 


The PRCHANGE report will be created by a REPORTW statement. 


By going 


through the master SEGACCESS segment with a selection statement for 
SDTE NE current date or SSDTE NE current date and with IFCSIGN 


‘OLDSSNOR' NE 'S$$$S8$8S$' 
to advise the generating office of records 
and the date of purge (PRGDTE) as well as, 
and what they were changed to. 


4.4.9.4 INPUT 

A file will be provided which will contain 
adapted for any segment. This can be done 
execution by any individual. If, however, 
sively by all segments, a procedure can be 
cept parameters via a procedure and change 
it. (TBR) 


4.4.9.5 OUTPUT 


and NE 'NEWSSNOR' 


a report can be produced 
that will soon be purged 
SSNORs that have changed 


statements which can be 
with a temporary change and 
this report is used exten- 
implemented that will ac- 
the statement and execute 


The output will be produced with a ROUTE *A and a PRINT command for 


the appropriate printer. 
segment and that data will include: 


It will contain only data for the initiating 


SSNOR STATUS NAME IN Date 


Purge Date 


New SSNOR NEW NAME 
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Chapter 5 


CONVERSION - NOT APPLICABLE TO PRIM 
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Chapter 6 
APPENDIX 
Figure 1 - PRIM FUNCTIONAL FLOW 
Figure 2 - PRIM HARDWARE CONFIGURATION 
Figure 2.1 - DMS ARCHITECTURE 
Figure 3 - PRIM REQUIREMENTS MATRIX 
Figure 4 - PRIM PROCEDURES 
Figure 5 - PRIM SHORT FILE DESCRIPTIONS 
Figure 6 - PRDDUMP & PRDLOAD DATA FLOWS 
Figure 7 - PRCAESTB DATA FLOW 
Figure 8 - PRCAUPDT & PRCHGLOAD DATA FLOWS 
Figure 9 - PRCATRSF & PRNTEPRG DATA FLOWS 


Figure 10 - PRINTPRG & PRACCUPDT DATA FLOWS 
Figure 11 - PRCALINK DATA FLOW 

Figure 12 - PRINDX DATA FLOW 

Figure 13 - PRCRTLINK DATA FLOW 

Figure 14 - BASIC QUERY DATA FLOW 

Figure 15 - SEARCH DATA FLOW 
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